T@2Ā  ?@F@@/$@ 3+, @@/,,@@ @7@7p @ @B@b@/~`(@ W~`/P @@/P~`(~_0P@@@>@>~`(@?@7а@@ @B@v~@z~@X~@~@ ~~(@Sl~W䨦d`6| (1|~~iϴk@~@ppqq@@[@@F@n@H@ŀ1@X@u@am@@ U@Z`76&@@k@kQC~vrmBrhi@@@}tABjA@D\\@@qY`Z@j@i;gt@^_@C@IPQoopUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|؀1SV@RTSSbs@@C@l@tl&R@  &5on startUp editor end @pd$e@\K\super count proto@d e?J~J[ 2M2M2M| <Bn appleS8m2N7 @jj `XCMDhA! ` 0/C2I Q"HrRH`$atd Spr`QQL.IRA WNXO _0S@,nQ.nN/ "o$o 0/4d`Q$_ _O N"_ L.p/ 1 Nup`"_ .N"_ _N"_ ".N"_ _#N"_ _%.jBNN"_ _)N"_ _*NNVA!n1n B(B(B"n2=@N^ _ NNVA1n=@ N^ _TNQ`PNVA!n 1n"n !Q$Bh,B.Jf`=@"n "(N^"_ NNVA!n1n B(Bh =@A "np.N^"_ NNVA1n =@"n"N^"_\NNVA1n1n ,!n.D=@N^"_PN"_ _fp``p`>N oB("_ _fp ``p `>N"_ _f`>Nt _?/tNNV/ nCp?"Q(n A)HP9|L/,H _N-lp(_N^ _PONNV/ (n)n P n)HT9|L/,H _N(_N^ _O NNV/ nCp"Q(n A)HP9| L/,H _N-lp(_N^ _PONNV/ (n )nPA)HT9|L/,H _N n?<Hn/N(_N^ _PONNV/ nCp?"Q(n A)HP9|L/,H _N(_N^ _PONNV/ nCp?"Q(n A)HP9|L/,H _N-lp(_N^ _PONNVH(n nCp?"Q&lYO/,HnHz\HzVHnHzLHn/,0. H/NXOHn?<NXOHnN.'_B?<HzNLN^ _O N  falseNVH(n l-HYO/,HzN&_/,/HnNYO/,HnN8TO=_/ NYO/,HzZN&_/,/HnNYO/,HnNTO=_/ NHnBg?<?.?.訧 n C LN^.Nuitem 4 of the screenRectitem 3 of the screenRectNVH8<. nCp?"QB.YOpz/N.(_ nHzBg/.NT$L&LB.A'HB 7FBkUO/ B'N>JGg/ NHz>?/.N5FBBjUO/ B'N:>JGg/ NHz?/.N9|)j00UO/ B'N >JGgHz?/.N/ N nB`)ld0Hn/,HzHn?<NXO?<HnHnN)ld0UO/ B'N>JGf*Hn/,HzJHn?<NpXO?<HnHnNJGg/ N n?<Hn/NLN^ _O N::PBGetCatInfo failed.PBGetWDInfo failed.PBHGetVInfo failed.Not enough memory.NVH(n<. nCp?"QUOHn?HnNB>JGg Hzv?/ NxHnHn?/ NXO?<HnHlNUOHn?HlN`>JGg Hz?/ N4LN^ _O NFailed to open PICT file.$Failed to retrieve file information.NVH(n&l-|PICTHn0,lH@R?0,lH@?/.HzB?<HnBHnNJ.g,?<HnHlN/,Hz@NHn?./ N`YO/,Hz N'_B?<HzNLN^.Nuset cursor to handNVH(n&lJSo./, k/HnNJ.f/ N`HnBg/ N`/ NLN^.NuNVH(nUO?,HnN>JGg Hzj?/ N,.YO/N^&_UO> J_gHzUO> / Nf/ NfUO?,?</<N`>JGg Hz?/ N:-FUO?,Hn/N>JGg Hz?/ NgHzR?</ NUO?,NH>JGg Hz?/ N-K LN^.NuFailed to close PICT file.OutCount did not equal InCount$Failed to ead PICT data into memory.Failed to set file marker.#Failed to allocate memory for PICT.Failed to determine file size.NV/ (n n C""HnHn/,0.nH/N&XOHnHzFHn/,0.nH/NXOHn?<NXO n?<Hn/N (_N^ _PON,NVH8-O n-HUO=_Hn/NXOAC""=|/NBYO/N-_Hn n PHh/N XO?<HnHnN?.쩘YO-_JgHz?./NYOYO/.N/?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiihhhgggfffeeedddcccbbbaaa```___^^^]]]\\\[[[ZZZYYYXXXWWWVVVUUUTTTSSSRRRQQQPPPOOONNNMMMLLLKKKJJJIIIHHHGGGFFFEEEDDDCCCBBBAAA@@@???>>>===<<<;;;:::999888777666555444333222111000///...---,,,+++***)))((('''&&&%%%$$$###"""!!!  H6 grays w red84@  Ti  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiihhhgggfffeeedddcccbbbaaa```___^^^]]]\\\[[[ZZZYYYXXXWWWVVVUUUTTTSSSRRRQQQPPPOOONNNMMMLLLKKKJJJIIIHHHGGGFFFEEEDDDCCCBBBAAA@@@???>>>===<<<;;;:::999888777666555444333222111000///...---,,,+++***)))((('''&&&%%%$$$###"""!!!  n Tite,gscale w greend | F`XFCNANqNq` AHH"_?/ aaaaap/ 1 Nup`"_ _#N" "_ _."AN oB("_ _fp ``p `>NNV n!n P np1@L n hHNN^NuSENDHCMENV n!n P np1@L n hHNN^NuSENDCARDNV n!n P np1@L n hHN n (pN^NuEVALEXPRNV n!n P np1@L n hHN n (pN^NuSTRINGLENV n!n P n!nT np1@L n hHN n (pN^NuSTRINGMANV n!n P n!nT np1@L n hHNN^NuZEROBYTENV n!n P np1@L n hHN n (pN^NuPASTOZERNV n!n P n!nT np1@L n hHNN^NuZEROTOPANV n!n P np 1@L n hHN n (pN^NuSTRTOLONNV n!n P np 1@L n hHN n (pN^NuSTRTONUMNV n!n P np 1@L n hHN n(sN^NuSTRTOBOONV n!n P n!nT np 1@L n hHNN^NuSTRTOEXTNV n!n P n!nT np 1@L n hHNN^NuLONGTOSTNV n!n P n!nT np1@L n hHNN^NuNUMTOSTRNV n!n P n2n!IT n!nX np1@L n hHNN^NuNUMTOHEXNV. HH n!@P n!nT np1@L n hHNN^NuBOOLTOSTNV n!n P n!nT np1@L n hHNN^NuEXTTOSTRNV n!n P np1@L n hHN n (pN^NuGETGLOBANV n!n P n!nT np1@L n hHNN^NuSETGLOBANV. HH n!@P n!nT np1@L n hHN n (pN^NuGETFIELDNV. HH n!@P n2n!IT np1@L n hHN n (pN^NuGETFIELDNV. HH n!@P n2n!IT np1@L n hHN n (pN^NuGETFIELDNV. HH n!@P n!nT n!nX np1@L n hHNN^NuSETFIELDNV. HH n!@P n2n!IT n!nX np1@L n hHNN^NuSETFIELDNV. HH n!@P n2n!IT n!nX np1@L n hHNN^NuSETFIELDNV n!n P n!nT np1@L n hHN n(sN^NuSTRINGEQNV n!n P n!nT np1@L n hHNN^NuRETURNTONV n!n P np1@L n hHNN^NuSCANTORENV n!n P np'1@L n hHNN^NuSCANTOZENV. HH n!@P n!nT n1|L n hHN n (pN^NuGETPIXBYNV. HH n!@P n2n!IT n1|L n hHN n (pN^NuGETPIXBYNV. HH n!@P n2n!IT n1|L n hHN n (pN^NuGETPIXBYNV n!nP n!nT n!n X n1|L n hHN n (pN^NuADDSTAR NV n!nP n!n T n1|L n hHN n (pN^NuGETSTARBNV n!nP n!n T n1|L n hHN n (pN^NuGETSTARBNV n!nP n!n T n1|L n hHNN^NuDELSTARBNV n!nP n!n T n1|L n hHNN^NuDELSTARBNV n!nP n!n T n!nX n1|L n hHNN^NuALTSTARBNV n!nP n!n T n!nX n1|L n hHNN^NuALTSTARBa"_NuNVN"/ N(QAZ-HBn n PfTBgHl/.NO J@gp=@/./.N,PBgHl/.NO J@gp=@Hl/.NPJnf /.NX(_N^ _ONMAIN NVBp-@Bp-@=|pf@HnHl/.NhO .tg=| n Pm nHn h//.N.O `B. n PmHnHn?</.NBO n PmHnHn?</.N OA! x/.HnNpP/.BHz:?P n!@BN^NuGETFILE NVHnHl/. NRO Hn/. NP=@HnHl/. N,O Hn/. NP=@0n @R=@0n @=@ n N^NuGETPUTPTNV n f*-x x/.?< HnHnHn/. nHh0. N^ _O>NPROMPTEXNVp=@-x x n-h$ n-h n//.NfPJ@g n/(/.NPPJ@f, n/(/.N:PJ@g n/(/.N$PJ@gBn0.N^ _O>NCREATEFINVJgJ g . gp`pN^NuMATCH NV nB nB0. HЮ @Hn h//.NO B.HnHl6NFPHnHnN8PHnHlBN*PHnHn/.N\O .fHn/.HxNp2@HnHn/.N*O .fHn/.HxNbN^NuGETPAIR NV/. /.NP-@/. n//.NO /.NN^NuGETEVAL NV/. /.NtP n!@BN^NuERROR NV=nBp=@ nR-HSn HnHn HnN$O .S npN^NuGETPATH NVA"n#HBg/.BgN0=@J@f n 0g& n"n#hd0/./. /.NO =@ n p.ذPcp=@Jnf: n .@Pp.?/.HnN*O ?</.HlDNO 0.N^NuRCR NVH0&n n $P>.` ARCR0SGJ@f n L N^NuMOVEIT NV n"n pr4A Bo0<A`QN^NuAPPENDSTNVBn n0noB0.HЮ @Hn h//.NO Hn/. /.NO Jgp=@0.N^NuEQUALARG@Form:GetFile(Prompt, "Type1 [,Creator1]" [,"Type2 [,Creator2]"])?!@GetFile XFCN 1.1; Copyright 1990, Silicon Beach Software, Inc.version() contains "supercard"item 3 of the screenRectitem 4 of the screenRect item 1 of "":GetFile \ j`XFCNeA! `>0/C2I Q"HrRH`$atd Spr`QQL.IRA WNXO _0S@,nQ.nN/ "o$o 0/4d`Q$_ _O N"_ L.p/ 1 Nup`"_ .N"_ _N"_ _#N"_ _fp``p`>N oB("_ _fp ``p `>N"_ _f`>Nt _?/NV/ nCp?"Q(n A)HP9|L/,H _N-lp(_N^ _PONNV/ (n)n P n)HT9|L/,H _N(_N^ _O NNV/ nCp"Q(n A)HP9| L/,H _N-lp(_N^ _PONNV/ (n )nPA)HT9|L/,H _N n?<Hn/Nd(_N^ _PONNV/ nCp?"Q(n A)HP9|L/,H _N(_N^ _PONNV/ nCp?"Q(n A)HP9|L/,H _N-lp(_N^ _PONNVH(n nCp?"Q&lYO/,HnHz\HzVHnHzLHn/,0. H/NXOHn?<N&XOHnN.'_B?<Hz,NTLN^ _O N  falseNVH&n(kJToTO=_/ NfYO/,HzN&_/,/HnNYO/,HnNTO=_/ N.YO/,HzN&_/,/HnNYO/,HnNTO=_/ NYO/,HzvNp&_/,/HnNrYO/,HnNTO=_/ NHn0.nHn@h?0.nHn@?-n LN^.Nuitem 4 of the screenRectitem 3 of the screenRectitem 2 of the screenRectitem 1 of the screenRectNVH8<. nCp?"QB.YOpz/N(_ nHzBg/.N$L&LB.A'HB 7FBkUO/ B'N>JGg/ NHz>?/.NZ5FBBjUO/ B'N>JGg/ NfHz?/.N*9|)j00UO/ B'Nl>JGgHz?/.N/ N( nB`)ld0Hn/,HzHn?<NRXO?<HnHnN)ld0UO/ B'N>JGf*Hn/,HzJHn?<NXO?<HnHnN^JGg/ N n?<Hn/NBLN^ _O N::PBGetCatInfo failed.PBGetWDInfo failed.PBHGetVInfo failed.Not enough memory.NVH8-O n-HYO/NlHn/NXOHnHn/NXXOHnBHnNBJ.g,YO/.HnHn?./NXOHnN$ n!_B`YO/.Hz8N n!_B/.HzNLN^.Nuset cursor to handNV/.N33?33ff@3333A33BCDEffF33GHIJKffL33MNOP̙QffR33STUVWffX33YZff[ff\ff]ffff^ff33_ff`33a33b33c33ffd3333e33fghiffj33klffmffnffoffffpff33qffrffsfftff̙uffffvff33wffxffyffzff{ffff|ff33}ff~ffffffffffffffffffffff33ffffff33ff33ff33ff33ffff3333ff33ffffffffffff33ff33333333ff333333333333̙33ff33333333333333ff33333333ff33ff33ff33ffff33ff3333ff3333333333333333ff333333333333333333ff333333ff33̙ff33ff33ffffffffffff33ff33333333ff333333ff33ٻڪۈwwUUDD""wwUUDD""wwUUDD""wwwwwwUUUUUUDDDDDD""""""0titleLP^26P25DdL$ $g??Hand9 paQ`26025D ` `IBeam #&@:p,:n=ff33̙ ff 33 ff33ffffffffffff33ff33333333ff333333 !ff"33#$%&'ff(33)*+,̙-ff.33/0̙1̙2̙3̙ff4̙335̙6ff7ff8ff9ffff:ff33;ff<33=33>33?33ff@3333A33BCDEffF33GHIJKffL33MNOP̙QffR33STUVWffX33YZff[ff\ff]ffff^ff33_ff`33a33b33c33ffd3333e33fghiffj33klffmffnffoffffpff33qffrffsfftff̙uffffvff33wffxffyffzff{ffff|ff33}ff~ffffffffffffffffffffff33ffffff33ff33ff33ff33ffff3333ff33ffffffffffff33ff33333333ff333333333333̙33ff33333333333333ff33333333ff33ff33ff33ffff33ff3333ff3333333333333333ff333333333333333333ff333333ff33̙ff33ff33ffffffffffff33ff33333333ff333333ff33ٻڪۈwwUUDD""wwUUDD""wwUUDD""wwwwwwUUUUUUDDDDDD""""""!hg d@J>=@H  <B B^icb}cQ#f#fA  <BTitles nL@dkboNx?(>2 <p dialog boxes`)SorryB(0dWێ*ep @y8%;CJE-ܻ-Ғ[Tr~"<B ?gfCP8(  "D$q@ P 3Save3Cancel;h1exd<d2M2N<xon openwindow lock screen get the number of cards in wd "main help window" put it into numcards put empty into cd fld "card names" of cd "help menu" of wd "help menu" repeat with i = 1 to numcards get the short name of cd i of wd "main help window" put it into line i of cd fld "card names" of cd "help menu" of wd "help menu" end repeat end openwindow <L help menu Undo Can't Undo Ctrl StructsCommandsJ u1exdn@T Igon openCard put the short name of this cd into bg fld "card name" end openCard C<BMain Help Window on startUp global numbins,currenttype,mode,pointscouK0@:nP:n"Hff33̙ ff 33 ff33ffffffffffff33ff33333333ff333333 !ff"33#$%&'ff(33)*+,̙-ff.33/0̙1̙2̙3̙ff4̙335̙6ff7ff8ff9ffff:ff33;ff<33=33>33?33ff@3333A33BCDEffF33GHIJKffL33MNOP̙QffR33STUVWffX33YZff[ff\ff]ffff^ff33_ff`33a33b33c33ffd3333e33fghiffj33klffmffnffoffffpff33qffrffsfftff̙uffffvff33wffxffyffzff{ffff|ff33}ff~ffffffffffffffffffffff33ffffff33ff33ff33ff33ffff3333ff33ffffffffffff33ff33333333ff333333333333̙33ff33333333333333ff33333333ff33ff33ff33ffff33ff3333ff3333333333333333ff333333333333333333ff333333ff33̙ff33ff33ffffffffffff33ff33333333ff333333ff33ٻڪۈwwUUDD""wwUUDD""wwUUDD""wwwwwwUUUUUUDDDDDD"""""" N title card$H2Nd2M`` 0 033cc`` 0 00 0 ``Alert(+BGFrqLN{$L [jn -JU[9  <BHNVH(n&l ^ . Г @C"""Fxx@ <BZdMx`JI^pth^CElf*Dpdx>(>P   <BTool Palette windowd&Hn5JU,,,   <B&BTool Palette window&Hn B5edCJ$(!Z2525D,ȢHHKMK@ 5aJU,,,  <B* D |CWOK.-gf/* "!!p Q9-hf7JFC*a%G pSon aa fhLxG*<*@@ @@ @@ Prev ArrowTsP| **   Next Arrow4R^26x25DPlus$232S`2625D```||CBC|~<~``?Crossgh242T`2425D????@@@``@@@????????????Watchg,26 2@  &5on startUp editor end @xd$e@Ksuper count proto@d e?J~J[ 11X1 <Bn appleS8m2N7*ht5z<(,1V1V+  <BCounter Palettea$N'&$ed@I 8 $fd1*2&<D'EI S+,UiQty-CX-Ch6on openWindow end openWindow  <B Configure2&LL  ffffiQtyNNt6on openWindow end openWindow  <B Configureo&<B jsH20fdi) E $*!R  :0gd6U)0jdh&H\!About SuperEdit Pr,@1Y01Xff33̙ ff 33 ff33ffffffffffff33ff33333333ff333333 !ff"33#$%&'ff(33)*+,̙-ff.33/0̙1̙2̙3̙ff4̙335̙6ff7ff8ff9ffff:ff33;ff<33=33>33?33ff@3333A33BCDEffF33GHIJKffL33MNOP̙QffR33STUVWffX33YZff[ff\ff]ffff^ff33_ff`33a33b33c33ffd3333e33fghiffj33klffmffnffoffffpff33qffrffsfftff̙uffffvff33wffxffyffzff{ffff|ff33}ff~ffffffffffffffffffffff33ffffff33ff33ff33ff33ffff3333ff33ffffffffffff33ff33333333ff333333333333̙33ff33333333333333ff33333333ff33ff33ff33ffff33ff3333ff3333333333333333ff333333333333333333ff333333ff33#^#^#^̙ff33ff33ffffffffffff33ff33333333ff333333ff33ٻڪۈwwUUDD""wwUUDD""wwUUDD""wwwwwwUUUUUUDDDDDD"M&^lSystem%@hANVt\D((@' on idle get the clipboard if it is "text" then enable item "paste" of menu "edit" else disable item "paste" of menu "edit" end if end idle <Bd Data Windowr o&nes in cd fld "data field" set the scroll of cd fld "k{PICON @ICONq[-+`ICON 8ɐICONZ!>XCMD:dclut6[-clut8\?cluthdXFCNhd%XFCN CURS7"CURS3!V`CURS4'eCURS). CURS ](0clut#^clutK_TaclutHwʅICON!`CURSPa CURSQb"CURSRc!V`CURSSd'eCURSTe. CURSe. CURSrrow672"X**@  @@@xUp ArrowX *x**x*x@@@  @ Down Arrow, pNuNV?<D*}[>=AhGL <Bd(Using Stereology Toolboxe  H    Stereology Toolbox starts up with a user-defined default configuration. Check that the counter palette and grid are configured the way you want. If they are not,select "Configuration..." from the "Edit" menu to change the configuration. See the Help entry on the "Edit" menu for more information on changing configuration. A typical counting session would follow this sequence of steps: 1. Select "Import PICT" from the "File" menu and open a grayscale or 8-bit color image file. 2. Count the points for this PICT using the mouse or keyboard. 3. Select "Log Data" from the "Data" menu. You may enter column header info. 4. Repeat steps 1 through 3 for each PICT you wish to count in this session. 5. Select "Save" from the "File" menu. This will save a Stereology Toolbox file complete with configuration. 6. Select "Export" from the "File" menu. This will save a text file that can be imported in a spreadsheet for analysis. (You may wait to finish all your data aquisition before creating an export file.) 7. Select "Quit" from the "File" menu. 8. Open your exported data file in Excel, Lotus, or other data analysis program.  Using Stereology Toolbox@%H*[tN*}1W1h1WT1W  <BydThe MODE MenueL            `  p  Normal Normal counting uses all of Stereology Toolbox's counting aids to make your data aquisition simple and accurate with graphic indicators of the counts you've made. Speed Count Speed counting turns off most of Stereology Toolbox's counting aids for a high speed, "quick and dirty" counting mode. You have no mouse counting ability, and no graphic count indicators on the grid. Use this with caution if you're in a hurry. Color Sets Stereology Toolbox into color mode and allows import of 8-bit (256 color) color PICT files. These files colors will be dithered to the system pallete. Greyscale Sets Stereology Toolbox into greyscale mode. The MODE Menuff=~)}0CKF  <BdIntroductione Stereology Toolbox allows you to import digitized greyscale or 8 bit color images (in PICT format) and overlay any one of several counting grids. Using the mouse or keyboard, points can be counted and recorded in a series of "bins." Data in the bins can be "logged" into a "data window" and accumulated. The data log can be saved as Stereology Toolbox file and added to later, or exported as a text file that can be opened with Microsoft Excel or other data analysis programs. Introduction$'h+?kpvwB~,g#Z#W#f#`  <B\,d_B#]#W4@-iYS#`#\,@,j%#b|@ temp data fielddtemp Note fieldl temp data card%T l oew#c#c8#c<  <B d#c@#c4e#c0#c,f#c(#c$g#c #cBlack]on itemSelect global dropshad, gridcolor,gridname lock screen set the checkmark of me to true set the checkmark of item 2 of menu "grid colors" to false set the checkmark of item 3 of menu "grid colors" to false set the checkmark of item 4 of menu "grid colors" to false put false into dropshad put "black" into gridcolor set the visible of cd grc 2 of cd gridname of wd "stereology toolbox" to true set the visible of cd grc 3 of cd gridname of wd "stereology toolbox" to false set the visible of cd grc 1 of cd gridname of wd "stereology toolbox" to false end itemSelect  G<[y Black w/ highlightXon itemSelect global dropshad,gridname,gridcolor lock screen set the checkmark of me to true set the checkmark of item 1 of menu "grid colors" to false set the checkmark of item 3 of menu "grid colors" to false set the checkmark of item 4 of menu "grid colors" to false put true into dropshad put "black" into gridcolor set the visible of cd grc 2 of cd gridname of wd "stereology toolbox" to true set the visible of cd grc 3 of cd gridname of wd "stereology toolbox" to false set the visible of cd grc 1 of cd gridname of wd "stereology toolbox" to true end itemSelect  5<I[RedeZon itemSelect global dropshad,gridname, gridcolor lock screen set the checkmark of me to true set the checkmark of item 2 of menu "grid colors" to false set the checkmark of item 1 of menu "grid colors" to false set the checkmark of item 4 of menu "grid colors" to false put false into dropshad put "red" into gridcolor set the visible of cd grc 2 of cd gridname of wd "stereology toolbox" to false set the visible of cd grc 3 of cd gridname of wd "stereology toolbox" to true set the visible of cd grc 1 of cd gridname of wd "stereology toolbox" to false end itemSelect  D)}Red w/ highlightXon itemSelect global dropshad,gridname, gridcolor lock screen set the checkmark of me to true set the checkmark of item 2 of menu "grid colors" to false set the checkmark of item 3 of menu "grid colors" to false set the checkmark of item 1 of menu "grid colors" to false put true into dropshad put "red" into gridcolor set the visible of cd grc 2 of cd gridname of wd "stereology toolbox" to false set the visible of cd grc 3 of cd gridname of wd "stereology toolbox" to true set the visible of cd grc 1 of cd gridname of wd "stereology toolbox" to true end itemSelect  G)} Grid Colors"hCT)}_#b#b#b#bon opencard global gridpoints, gridname put 1 into gridpoints put "blank grid" into gridname end opencard )<BddeUUUU#b#b?Z,e s#b#bgF@dUUUU#b#buT,v#bS@ blank grid-- this graphic is a grid replacement so the image will have the correct number in the -- import graphics and changegrid handlers.  <nX -- This is a kludge fld to give reset counts a field to work with. -- Gridpoints is set to 1 in this cards script  l<B mover maskon mousedown repeat while the mouse is down set the loc of bg grc "image" to the mouseloc end repeat end mousedown on mouseUp end mouseUp  <B5 Configuring. One moment please...   blank grid(Project "SToolbox vM\M)}[)))P)on mouseUp beep open cd "demo grid" of wd "demo dialogs" end mouseUp on keystroke thekey beep open cd "demo grid" of wd "demo dialogs" end keystroke  <0LbiNUUUU)jvjΨiMUUUU)jvjΨiMUUUU)jvjΨ, X~l)$S@, Xl)S@, Xl)S@, Xl?)S@, XRls)S@, Xl)0S@, ~)S@, )S@, ) S@, ?)S@, Rs)(S@, )S@, ~ )S@,  )lS@,  )S@,  ?)S@, R s)S@,  )S@, H~\)S@, H\)S@, H\)S@, H\?)S@, HR\s)S@, H\)4S@df3f3)l@dUUUU))uT  @@ >>>>>>>>>x%%<p%' l%`%'`%6%%4% h(%@ P%(%@  P%(%@ P%((%@(@ P% @ @P%( @@(%@ @  @@  @@@  @ @@ &|&%%{ & ;+&+,@@&:0&%}4$|%$&:0 &@|  @ @@ @ @ @ @ @(%@ @ @P%( @ @(@ P%((%@(%@ P% P%(%@ (%@ P%%4% h'`%6%' l%`%v%%%`;&%?$%%$&%7%% l%`%6%% l%`%%,%`(%@ P% P%(%@ (%@ P%P%((%@ P@ @$(%@@ @ P% @ @ @ @  @ @@ @ @-+@%=%x%-PP++- ++-+0; &%}4$|%$-+0;  " "@@@  @ @@   @@  @ P% @@$(%@@@ (%@ PP%((%@ P%(%@  P%(%@ P%%%,%`%% l%`l%`%6&%7%% &%?$%%$v%%%`;' l%`%'`%6%%4% h(%@ P%(%@  P%(%@ P%((%@(@ P% @ @P%( @@(%@ @  @@  @@@  @ @@ &|&%%{ & ;+&+,@@&:0&%}4$|%$&:0 &@|  @ @@ @ @ @ @ @(%@ @ @P%( @ @(@ P%((%@(%@ P% P%(%@ (%@ P%%4% h'`%6%' l%`%v%%%`;&%?$%%$&%7%% l%`%6%% l%`%%,%`(%@ P% P%(%@ (%@ P%P%((%@ P@ @$(%@@ @ P% @ @ @ @  @ @@ @ @-+@%=%x%-PP++- ++-+0; &%}4$|%$-+0;  " "@@@  @ @@   @@  @ P% @@$(%@@@ (%@ PP%((%@ P%(%@  P%(%@ P%%%,%`%% l%`l%`%6&%7%%   큁x @   @@ >>>>>>>>>x%%<p%' l%`%'`%6%%4% h(%@ P%(%@  P%(%@ P%((%@(@ P% @ @P%( @@(%@ @  @@  @@@  @ @@ &|&%%{ & ;+&+,@@&:0&%}4$|%$&:0 &@|  @ @@ @ @ @ @ @(%@ @ @P%( @ @(@ P%((%@(%@ P% P%(%@ (%@ P%%4% h'`%6%' l%`%v%%%`;&%?$%%$&%7%% l%`%6%% l%`%%,%`(%@ P% P%(%@ (%@ P%P%((%@ P@ @$(%@@ @ P% @ @ @ @  @ @@ @ @-+@%=%x%-PP++- ++-+0; &%}4$|%$-+0;  " "@@@  @ @@   @@  @ P% @@$(%@@@ (%@ PP%((%@ P%(%@  P%(%@ P%%%,%`%% l%`l%`%6&%7%% &%?$%%$v%%%`;' l%`%'`%6%%4% h(%@ P%(%@  P%(%@ P%((%@(@ P% @ @P%( @@(%@ @  @@  @@@  @ @@ &|&%%{ & ;+&+,@@&:0&%}4$|%$&:0 &@|  @ @@ @ @ @ @ @(%@ @ @P%( @ @(@ P%((%@(%@ P% P%(%@ (%@ P%%4% h'`%6%' l%`%v%%%`;&%?$%%$&%7%% l%`%6%% l%`%%,%`(%@ P% P%(%@ (%@ P%P%((%@ P@ @$(%@@ @ P% @ @ @ @  @ @@ @ @-+@%=%x%-PP++- ++-+0; &%}4$|%$-+0;  " "@@@  @ @@   @@  @ P% @@$(%@@@ (%@ PP%((%@ P%(%@  P%(%@ P%%%,%`%% l%`l%`%6&%7%%   큁x @ @C% VUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU!!!!!!!!!!!!ÁāŁƁǁȁɁˁʁˁ́́́ρ΁Ё߁ρсЁҁсӁҁ333)ނ)ނ)QQQQQQ)ނ)ނ) ՁځՁځՁӁсҁЁсρЁ߁΁ρ́́́ˁʁˁɁȁǁƁŁāÁ!!!!!!!!!!!!!!!!!!%111111!!!!!!!!!!!!!!!!!!Łʁ́߁333)ނ)ނ)QQQQQQ)ނ)ނ) ցفցفց߁́ʁŁ!!!!!!!!!!!!!!!!!!111111%!!!!!!!!!!!!!!!!!!ÁāŁƁǁȁɁˁʁˁ́́́ρ΁Ё߁ρсЁҁсӁҁ333)ނ)ނ)QQQQQQ)ނ)ނ) ՁځՁځՁӁсҁЁсρЁ߁΁ρ́́́ˁʁˁɁȁǁƁŁāÁ!!!!!!!!!!!!!!!!!!%111111!!!!!!!!!!!!!!!!!!Łʁ́߁333)ނ)ނ)QQQQQQ)ނ)ނ) ցفցفց߁́ʁŁ!!!!!!!!!!!!!!!!!!111111%  @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S mover outline mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<BVert Cycloid - Pt 24&0,RtR)}[)))()on mouseUp beep open cd "demo grid" of wd "demo dialogs" end mouseUp on keystroke thekey beep open cd "demo grid" of wd "demo dialogs" end keystroke  <0Qxif?UUUU)jvjΨie>UUUU)jvjΨig>UUUU)jvjΨ, I}])S@, I])<S@, I]=)S@, Ik])S@, ~|)S@, ~)S@, ~<)dS@, ~j)S@, |)hS@, )S@, <)|S@, j)S@, {)S@, )S@, ;)S@, i)S@, |1)S@, 1)S@, 1<)S@, j1)@S@, R|f)HS@, Rf)S@, Rf<)S@, Rjf)S@df3f3)xl@dUUUU))uT.  @@ >>>>>>>>>7уG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  $$@$=@$=$PP$PP$ $ ҂҂$}$}$}$}(}(}(}(}##$ $ @#PP@#PP#=#= # #@@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 7усG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  ##@#x@#=$$PP## (0҂$|$>$}$(|(>(}((0$($ (@$PP@(x$=( $ @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 큀7уG}Є}&!/!Ё&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  $@$@${$(($$$@@҂` у0$|$>$}$(|(>(}(#` 20$$@@@#((@# ,@2@")@"# # @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 7уG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  ##@#x@#=$$PP## (0҂с$|$>$}$(|(>(}((0$($ (@$PP@(x$=( $ @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 7уG}Є}Ё&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  $@$@${$(($$$@@҂` у0$|$>$}$(|(>(}(#` 20$$@@@#((@###{ # @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 큀7уG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  ##@#x@#=$$PP## (0҂$|$>$}$(|(>(}((0$($ (@$PP@(x$=( $ @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 큀 큁x @ .  @@ >>>>>>>>>7уG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  $$@$=@$=$PP$PP$ $ ҂҂$}$}$}$}(}(}(}(}##$ $ @#PP@#PP#=#= # #@@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 7усG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  ##@#x@#=$$PP## (0҂$|$>$}$(|(>(}((0$($ (@$PP@(x$=( $ @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 큀7уG}Є}&!/!Ё&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  $@$@${$(($$$@@҂` у0$|$>$}$(|(>(}(#` 20$$@@@#((@# ,@2@")@"# # @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 7уG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  ##@#x@#=$$PP## (0҂с$|$>$}$(|(>(}((0$($ (@$PP@(x$=( $ @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 7уG}Є}Ё&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  $@$@${$(($$$@@҂` у0$|$>$}$(|(>(}(#` 20$$@@@#((@###{ # @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 큀7уG}Є}&!/!&"."n#n#%6-6% -  % %%%hXhX44$@ +@ $+'' '@ '@(P(P  @@  ##@#x@#=$$PP## (0҂$|$>$}$(|(>(}((0$($ (@$PP@(x$=( $ @@  (P(P '@ '@''.+.@ +@ 44hXhX%% % %/ - /6-6Ёn#n#Ђ"."Ђ!/!ф}Є} 큀 큁x @ "% VUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU%сρсІƆІ%فف1ڃ11ڃ11!1!!!!!!!!!!!!!!!߁݁ہÁفÁŁׁŁǁفǁˁՁˁɁׁɁ́́33߁ρρ́́҂)Ղ)߁QQQQ߁ςςςρ߂)Ӂ߂)с߁Ձ߁ǁ33ׁ܁ˁՁˁǁفǁŁׁŁÁفÁہށ݁߁!!!!!!!!!!!!!!Â1!1!Ń1ڃ11ڃ1ȃQЅ1QЅ1%Ɂсρс%%сρсɂІƆІŁ%فف1ڃ11ڃ11!1!!!!!!!!!!!!!!!߁݁ہÁفÁŁׁŁǁفǁˁՁˁɁׁɁӁ3߁3߁сӁÂ)ӂ)%߂߁߁ςςςρÂ)́)́ŁρρفāˁˁŃ33ǁɁɁˁՁˁǁفǁ݁ŁׁŁÁفÁہ݁߁!!!!!!!!!!!!!!Â1!1!Ń1ڃ11ڃ1ȃQЅ1QЅ1%Ɂсρс%%сρсɂІƆІ%فف1ڃ11ڃ11!1!!!!!!!!!!!!!!!߁݁ہÁفÁŁׁŁǁفǁˁՁˁɁׁɁ́́33߁ρρ́́ӂ)ӂ)%߂ށ߁ςςςρف)߁Ӂނ)с߁Ձށ%ԂׁˁՁˁǁفǁŁׁŁÁفÁ݁ہ݁߁!!!!!!!!!!!!!!Â1!1!Ń1ڃ11ڃ1ȃQЅ1QЅ1%Ɂсρс%%сρсІƆІ%فف1ڃ11ڃ11!1!!!!!!!!!!!!!!!߁݁ہÁفÁŁׁŁǁفǁˁՁˁɁׁɁӁ3߁3߁сӁÂ)ӂ)́߁QQQQ߁ςςςρÂ)́)́ځŁρρāˁˁŃ33ǁɁɁˁՁˁہǁفǁŁׁŁÁفÁہ݁߁߁!!!!!!!!!!!!!!Â1!1!%ففȃQЅ1QЅ1%Ɂсρс%%сρсІƆІŁ%فف1ڃ11ڃ11!1!!!!!!!!!!!!!!!߁݁ہÁفÁŁׁŁǁفǁˁՁˁɁׁɁ́́33߁ρρ́́ӂ)ӂ)%߂ށ߁ςςςρف)߁Ӂނ)с߁ՁށہɁ33ׁˁՁˁǁفǁŁׁŁ܁ÁفÁہ݁߁!!!!!!!!!!!!!!Â1!1!Ń1ڃ11ڃ1ȃQЅ1QЅ1%Ɂсρс%%сρсɂІƆІ%فف1ڃ11ڃ11!1!!!!!!!!!!!!!!!߁݁ہÁفÁŁׁŁǁفǁˁՁˁɁׁɁӁ3߁3߁сӁÂ)ӂ)%߂߁߁ςςςρÂ)́)́ŁρρāˁˁŃ33ǁɁɁ܁ˁՁˁǁفǁŁׁŁÁفÁہށ݁߁!!!!!!!!!!!!!!Â1!1!Ń1ڃ11ڃ1ȃQЅ1QЅ1%Ɂсρс% ( = = = = = = = = = = = = = = = = = = = = = = = = mover outline mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<BHoriz Cycloid - Pt 24h0f dg R&e @ (p א/qHubwb \ $:@Ӏ>~J[d( <BVdf~JWpj,d+-$j@-e ;]? j@i bvW jbcv<  card name Quit Helpjd"&&zĔl8@This DEMO version of Stereology Toolbox will only export the first two lines of the datalog. The exported file has been saved as a TEXT file which may now be opened with any spreadsheet or data analysis program.  demo export)  4( t8#c#d,#d0 <B bCe#d4#d(Xf#d$#d Vg#d#dh#d#dMk#d #dHl#d#dd#c#cm#c#cn#c#ci#c#cj#c#cCopy9on itemSelect copy end itemSelect  <B.Cuti8on itemSelect cut end itemSelect  <BPasten?on itemSelect paste text end itemSelect  <B -lDon itemSelect pass itemSelect end itemSelect  <B Move PICTC on itemSelect if exists (bg grc "image") then resetcounts open cd "image tools" of wd "tool palette window" else answer "There is no image to move!" end if end itemSelect  @<Bs Hide Grid 4on itemSelect global gridname, dropshad,gridcolor set the cursor to watch lock screen if the vis of cd grc 2 of cd gridname of wd "stereology toolbox" is true or the vis of cd grc 3 of cd gridname of wd "stereology toolbox" is true then hide cd grc 3 of cd gridname of wd "stereology toolbox" hide cd grc 2 of cd gridname of wd "stereology toolbox" hide cd grc 1 of cd gridname of wd "stereology toolbox" set the name of me to "Show Grid" disable menu "grid colors" else if dropshad is true then show cd grc 1 of cd gridname of wd "stereology toolbox" if "red" is in gridcolor then show cd grc 3 of cd gridname of wd "stereology toolbox" else show cd grc 2 of cd gridname of wd "stereology toolbox" end if set the name of me to "Hide Grid" enable menu "grid colors" end if end itemSelect  A<quntitled  <BDon itemSelect pass itemSelect end itemSelect  <B Hide Text %on itemSelect global gridname set cursor to watch lock screen if the vis of cd fld 1 of cd gridname of wd "stereology toolbox" is true then get the number of cd fields in cd gridname of wd "stereology toolbox" repeat with i = 1 to it hide cd fld i end repeat set the name of me to "Show Text" disable menu "Text Colors" else get the number of cd fields in cd gridname of wd "stereology toolbox" repeat with i = 1 to it show cd fld i end repeat set the name of me to "Hide Text" enable menu "Text Colors" end if end itemSelect  -<B -tDon itemSelect pass itemSelect end itemSelect  <BConfiguration ...on itemSelect global oldconfig set cursor to watch hide wd "counter palette" open wd "configure" put item 1 of cd fld "current data" into oldconfig disable cd btn "ok" of cd 1 of wd "configure" end itemSelect  <<Bi Edit'd(A@edTD @hdh}慾?>\+9==[ Z*PA%_`XNuNV :d ?. NT` 8I2=8=\=X <Bng=P=Te=d=Hf=D=@About Stereology ToolboxXon itemSelect open card "about box" of wd "title" end itemSelect  2<BHelpLon itemSelect open window "help menu" end itemSelect '<B-fDon itemSelect pass itemSelect end itemSelect  <Bapple8(($"Hbb)}_*T*U*U*Ton idle put scroll of cd fld 1 into currentscroll add 3 to currentscroll if currentscroll > 681 then put -64 into currentscroll set the scroll of cd fld "credits" to currentscroll end idle on mouseup close this wd end mouseup  erxyanie*U fporpjj)*Ufporpjk*Ufporp-m t*U*U@dntk\%؁݁-hTՁH#%ҁǃЂ)ǁՂځǁ݁ہցɁځЂXiȉClЇއЇʌs܁zччɌˆ҂&)&;'ك';Lj)#'<'߂5;')2*-W%3&3DׁD5ҁDD݁Dтւ݁ՁׁہA=߁ЁӁЁЁ6ЁЁЁہЁ؁ԁсف,.ՁсЃсȁЂԁԁԁԁԁԁ҂*ҁւތȁ-فځق4%ԁԁ)ցԁԁԁ߁ӁւcƁÁց́т7؁7сЁӁЁƊЁЁځЁ/'WځWՁׂс؁Ёч&*.*DDځDD!B$DZ9)&/&;'7'܁<='<'%'=''$"Ӂ҂!ށŒGǁ)(=8ڂЇق*(܃<فƁb1)ׁԁ؂*#ځс$Ɓҁބ1!7D1241!DЁBB<622"C#"D1*C"A1AA12Ё"&"2a"""B2"7Q#"!"'";###1""17#"B"A""."""2!܁33؁.с,3Ԃ؂ӁM܁ځ#<сÅ2:k݁ف5\ׁӁҁԁҁ*B&"ҁB!!1!b1!11!1"!1!g!!11Łā>ۂԃ8҂1فցсցҁ܁$"C154لE#1CD6ӂ"2!""%"#"1B"'""""ҁ#ׁЂ)݁9ց݁ҁЁB#Ԃ!11!!!!! ́ A A A A A !  ! ! ! ! ! ! ! ! ! q A A A A A A A A A A A A Q A A A A a āׄ  3 3 3 3 S Ɓ!  ! A A A A A A A A A A A A A " ! $ $ $ $ $ $ $ $ $ % " # # # " ! % 1 1 1 1 1 1 1 1 1 1 # # # !  " " " " " " " ' # # # # # # # # # # # # $ $ * * * * # " 1 " " " " " ! * ##.  "##́!!!!!!1!11!!Q ԁ!!!!!!63 %)***&R22"3969663cB1! N"1!!!!A!!!"!C!!!%! " 23***!$1!1!!!2!$ $A12!!1!!1!!1211#""b ޲N"##"#""""""#""""#"#$) "‰ NN"!"#"ւ'*''Ă z NN"#',݂ N Ł55555NNׂ55555555555555"5!5"555!55"55: ޲N1pЁ%-!5!555$5!5$5!5!5#5!5#5!5T55!5!5"55555Š55555b555"55555!5!5a555515c-5555555'5! !N1N"!5!5"5!5Q5535!51545a555!5A55!5!5A55!5A55!5!5A55!55!55555555555555555a555A55!5Q5555s5555555 5555#N5555515-'D-555!5!555575-55355555*535'55"55c55555555"NAN 5?5-#5555555855555#5555Q55555S555#5T5---55T5555" 55%555545555554555555555555555555"515555E5-5155!55!5555%N5555555155-!5-5155!51551555155!515551551551555#55!55!5!55!5"5"5"5"5"5"5"5552-5#555#55555555*5555W5--55r55R1555155A55a5QBa55a5!R1a5S3555!55&N! "5"55!55-!51---!5-#-#-5-1---5--)51----#---#-$--'--5M"555"-5-5"5#55J---7--58--3--߂!---57N 5---5[-----5&--.----X-------5MM5-Ӂ-ԁ-т-#$-Mӂ--"-!!4#-D-43!4$44t4444È4444C44144M%"T-%-"-!--"'-"-%4"-#A--4&4-44Y444M6#4-7-!4#-!4!4-$-E4%434-$4-A-414-4434A44#144MD4!4--"464R-44#4"-!%#4%-:--2R44A4244!4$4MM%$4$-#-"444"-%"--6"14!431!44M*Q44!424"&#4'&24%34d434ʼn-44"MMM"#"-!-1$!r-4s-!-r-&!421444"4#2-!4!4!4!rMMMDp4$4"4'4'4!4!4%4!4"424#-!4&4*4,4т4!4&4$4#44745M"M!p"4+4%4-4&4'44RMMM"4ځM!MAMMMMM1Mԁ!!!1A1!!11!M2MM"M!!31!BM1MMCMR!ӄ3)*"!EMMRM4/13$5!WMM1M#A!!!!!!Aœ!!!ABAaA$$b$$1MM!M25V222"!#"#111QMMBM3!!5:)511!!;!!43$"T"UMM1p#$"B!"""#"!!"$!#''-)"D!ZMp!$܂҂!1MMԁӁځ^^RMBMЁ^с^^"^^^^^^!^^^^""!Mс^^^^^^^^^^^^^^^^#^^^^^^1^^!^^A^^1^!^!^!^!^%M!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^)^^^^^!M3^^^^^2^^^^^^^^^^^^^^^^^^^^^:^^,^^^^^^1^^^^^^^^^^^^^!1M^^^^ׁ^^2^^^^^R^^^^^^^2^^^^^d^^^^^U^^^#^2^^^^M1ݩ^^^^^^^^^^D^^^^^^^^^^^2^^^^^^^^^^2^^^^#^^^!^!^^^$^!^^^^^HMAM^5^^^3^^R^^^S^^^^1^^^^S^^^^^^^'^^܂^^^!^^^1^^1^^Q^^^1^^!^^!^^R^^^!p'ݩ^!^^!^4^^5^^Îހހ!^!^^!^!^1^^^!^1^^^%^^!^!^!^!^^!^1^^1^^1^^!^!^^1^^^^^^^^W^A^^2!p%!7#^#^"^$^"^!^"^"^2!Y$^"^)^)^͂W"^#^!lp)15pW,^B19A!"^傩^^Cpp7"M^-C"w2^p2%ݩ؂!!!r"""!1zȁp!p!pA݂11AB!#]!]!]!]!]"]p&"#ݩF!#A#ĉ"yW"]&lQppp!p9ċ#]]]]]!]Q]]$!(Ŋ"%B#]]!]]]]]!]A]]A]]]]]]]]]]]]]]]]]]]]1]q]]]]]]]]]!]!W]]]]l4pp!pU!É#]]]]A]]!t#$a"2!!?#A"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]A]]a]]]]]]]]!]A]っ!]4p"p"E]]5"""!"BQ@2]9]ĉ]]]]Յ]]愣]]3"4]4C#!$1q"!!?"AA"!s]]]!]4]!]烣]"!ݩ34A(2"!"Rq1"É"ܛ֣]1]1]1]1]!]1]1]!]!]!]]"]W"]!]"lvpppp%r#"]!]S1("b"6?"1#È""!(]ڂ]"]"]"]%]߂!]"]2]l%p2pp!pƊ#Wd:A"!Q""Ò@*@*#]'](]#]']Aloupppp!p#2!#A1#"""1""@"CA"&## ׂ]#ovpppp"!G"#!1"1@Ar"1!恣oAppuA#!r1!!B!a!A"!B""Ab+":ۑ!o%p!pp!pv#1!(7A2"!D@!"W"g!1%AŒA!aBŠAb!ABBo!pe#C!"!"" 1?"!!1"""QQ$‰!!!'S$!oo$p(4V11!1BA!#R4!"A#D#(%#62!"oo2p#3#q"!""A1F$Aq$!!11w!$ooB!""a"A!"!"1Q!"BDr!$!!!4op1 EQ@"R!@!1Q?"21$$!!!Q!222"!!!2qsoooXpppQA!"2"q!"@qsRQ> "+###%%ӂ-"CroooXppp!p4#%""!@Lj!T"c@d?!!!B>!"C" %",(%%߂&"uooo$p2pp!p2DA""a!""""C!"BQ!!q!1! Ђqoooo"p2p2ĉ"!2!!#!!#!"a!>!"#"")oopAD"ˆ""ˆ""a"A"1!B!‰!!>"!ف*&o!oHpp!pS"1"ƈ?""(1$g!!! >"""! yy!y"y!y!y!y"y!yyyyyyyyyyyy!y!y!y"y"y"y!y!y!ooo!p1p2!?a!Q#"a""1!A!$!2 !q!>a"!!"yւyぇ(oo1pA""!"1"R$Q!!!1 "?r!!1!*yFyy"y䁇+o"oAQ"!"qG"Q"qC!!! !!!qE!1M2y+y邇yoo!ooS"!!1"#A*1"A?>A>!"!1!Qyy4ySyy!y2y'yAyy恇6oooo1k"!$1"!@q"#ˆ"#!!E!!"1 "a Q?!!y#y!y!y4y!y!y1y1y!y%y灇!yooo)!1"!q##2"A"!!#R!2!"!!$ay1y1y1y!yQyy!y!y1y#y"y!yr~%oAoo%e"3"@""TQ$!1!! 1 R ?!!‰!#yȂ~ぇy"yDoQoooo"DA!"!#"!1!!!q 1 "!@!$yぇ#yooo""!"@!1"A""$!!1!!q !Š! ""聇&2o!oo!oˆ"!!1@b"!@1!A!1DqQ!"!q!!bMzzzzzzz1!6oo1o$#a!#A""!@""Q!?  1>"A1@!cE11 > zzzzzzzzzz"z!zz!z"z"zz!zzz!z*~#Q(o4A!""q"ʼn$!!C>!a>"!a !z!z!z!z!zBzzAzzzzzzBzz!z!z!zzzzzzzzzzzzz!z!z!z!~$"%o!o!q!1"3*qA$a!c!!A aD"C!Q!1ˆ 1z!z!z!zzzzzzAzzzzzzzzzzzzzzzzzzzzzz!z!~zzzzA)oo"A!#A3$3 r>!!A!!!!>!!a$Q  1zzz3zz&z#zz8zzzzzzzz:zzzz!1o("5"BF$$$!"s !QDA!?A$3>2zzzzSzzzzzzzz5zzzzzzzz6zzn!ooA##"Q1!!??"!!A!"!1$" $ z$zzzzzzzzzz2zz1zz!z2zz1zz1zzz!zzzzqzz~!nB1!7"?lj@"$"AA!? ! !B!$> c= !z&z"z!z"z!z%z"z"z!z؂z5~zz!zbzn&!&oA"Ŋ""""T!!D! @"?!!A> D-"z"zтz$z&z$z%z#zЂ&z"!n&A!3$3!!!#!!q!?R"!"!!!*ʼn  !*z/z&z䁆zDnnna!""a"$!1!!!S   @"!!!!A!* ! qzЁzzzz"n6"o#"SB!$!?! """"?!!Q >1 ! q=!zzn!o"1"!@1!"C?!!!!?"1!A!S?!1b= 1 >1>nn4B"1"3!1!"!@! !"?‰$1>!! C  "'n&&A$1#!q 1!@!a!! =1 C !%24nn"n&@!1B?" ‘ ? !b!"$ D  >2)!"!nnnn!$2!E!!!R$! QE" !!*!  D$ 36*3nnRS!a"2!!!‰!!#"> 11 a= !&3!1!bHVnnX$11!Q  1 !! 1"2"1!A"  C>!!E!/#"&"""!&#("?B2H%n!n%$!Ž!!"a"?!! # • D !+!"$(!#ۂ$"!1ovnnnV1Ê?!%!!Q">1a>"E?"> =  D!)#ɂognnnna!?!1% "1#a"#!!!E11AQ > A =!E )6nn"n'B!!!BDŠ ""r!!$!q> C!!!? n!Aq!!Eˆ!!q!$$ !SC2> A>!с:o"o&n!n%!!T #" !!!$>! Ž !! D!!PPPPPPPBPPPPPPPPPPˆPPPP!PBPP"PAPPbPPP!PAP偰nnn"!!?!?!1Q!>2!r"!> > A B >!)#P"P$P$PWPPP#PAPP恰nn' Aa?!!1!?111>1 >r > 1 " a !Da /#PaPPPAPP"PP$P!P1P3PP!PrPSooȉnnnnEŠ!a !&QŒ > 1= Q ! *PPaPPPBPPPPPPP2PPAPPaPPPaPPPPPPPAPP!P!P"P!SばaPPPoAoon$nn!> ‰$!E2?!5$ċ  D!! $!*!!S4PBPPAPAPP"P#PP惰P%onAnnȈ"! !QA$!  Q > A= 1!!Q*#!PP!2P!P2P2P1P2P!P"PPBPPQPoqoooo&nQnn$"#!!!b =?E D! /#P(P"P#P!P%P!P#P%P&P-P)S"PCPSroooo(n"n$!!1!aQ!Œ$ Š  !  !  ,P'P(P&P$PS!P"P#S5oo!oXnnF>q""??   ?!q!#Œ> $ԂS偰;o!oWnnn!)a"r!1$r !!q #>$Qoqooonannnn5 "#!!! A >D!Q!?q D!!ׁQсQQQQ#QQQQQQQQQQnn"nnʼn Q2 2>! "D! !!  A2*D*QQQQQQQQQQQQQQQQQQQQQQQQQQQQ$on!!1!*>! A !!> !1 !=$!QQQQQQ#QQQQQQQQQQ#Q?QQQQQQGoonnq ?!R$"!A #!! #$$1$R=0!Q҂QQсQQQ2QQQQQQ3QQQQQQQnnlj!?#! ĉD>Q > ! B0QQQQQQQQQQQQQQQQ$QQQ2QQ4onn!nu"2>!!DQ 1!> a> $"$!1$*"QQQQQ'QQQVQQQQ7QQ!Q4QQ7QQQQQQQQ(o!onnnA q>"3*A A !=!>aQ=00QQQAQQQ:QQ$QQQ!QQ!Q1QQ!Q!Q1QQ!Q1QQQ1QQ!Q!QqQS!o!o!oXnn˜$  > >!a+ D >*$Q!Q"Q!Q!Q!Q"Q#Q"Q"Q"Q#Q"Q"Q!Q"Q"QقQ#Q!Q!QaQ!$o"o1oo(n!n#q D1Š!  ! 0ׂQłQ!Q!QQ22booooAnn$a  D ! ?! A qA0؁QQQQ"Q!'o&o1 q0N!!"!!!!B!onnn7 ) !S C "$==A00N!!!!"A"!1(oQooownnn$1!# !D!Dq !!AA!Qa"!!6A6oo!ownnn&!t! ! Qa0!AAaaL$&o!o1on$nˆ * $R$+*1*+1с?;4#onnn$ 20+0O0+*O0+111!213!L$!o&nnnAǎ21+0++0+1#1111111!1!1111""""""!#!LU!!$oQooo8n!nw$%!"""#%%&&*+*ĈL)!Vooo!o&nQnnW&%!*$!ۂ-("$t$LL$Q!7oo!oWnn!n#q#%)VLLB!gooo%n!n!n!Az$LL&AWooo'n!n&Q"%ׂق.'""Ơ*$qLLL1ljooooo'n&Q#%'-Žˆ!"œ"2L%n2nnn$Q2!"#%"ƃ"aB"1111Q111!qQAa1Q1(((''('('('(''''&''&&''&'&'&'&&&%&%&&%%%&%$&%%$%%"$#$511"&#"1""t14"27$b$"$S!"!5EA2!121́U1993 Morphometrix 216 F Street, Suite #133 Davis, California, 95616 jPortions 1989,1990,1991 Silicon Beach Software, Inc., A Subsidiary of Aldus Corporation. s     Credits Design and Programing by Mike Guinan & Dave Magliano *** Concept & Stereology Consulting by Dallas Hyde Ph.D *** Special Thanks to Beta Testers: Charlie Plopper Kent Pinkerton Scott "Hair" Wong John Gallen John Russ Dennis Dougherty Tim Meyer *** Moral Support by Karen and Pam *** A Curse: If you are using an illegal copy of this program may the gods of Stereology maximize your variance. *** This Program was created using Aldus SuperCard from Silicon Beach Software, Inc. A subsidiary of Aldus Corporation.  -credits About Boxn# @C pfp` ( `" f f IBX wf bG f+A<, f_- f,dH- f ZoDK\CN ` gKMFCKDEl00)}[= ===on mouseUp beep open cd "demo grid" of wd "demo dialogs" end mouseUp on keystroke thekey beep open cd "demo grid" of wd "demo dialogs" end keystroke  <0/i(EUUUU=| N.i'DUUUU=| N.l'DUUUU=t|,s 0IGa=Z@,t 0G=Z@,u 0G=Z@,v 0G=Z@,w 09GQ=Z@,x 0tG=Z@,y df{~=Z@,z d{=|Z@,{ d{=Z@,| cz3=Z@,} cWzo=Z@,~ cz=`Z@, Jb=Z@, =xZ@, =Z@, =Z@, 9Q=Z@, t=Z@, g=Z@, =lZ@, =dZ@, 2=dZ@, Vn=Z@, =Z@, Ia=Z@, =pZ@, =Z@, =xZ@, 9Q=Z@, t=Z@, 3fJ~=xZ@, 3J=Z@, 3J=Z@, 4K2= Z@, 4WKo=Z@, 4K=DZ@, hIa=Z@, i=LZ@, h=8Z@, h=tZ@, h8P=Z@, ht=Z@d0f3f3=l@dUUUU=d=uTt쁁 끀ˆLjLj @@@ #&@%&@%6@ ˆLjLj @@@ #&@%&@%6@ ˆLjLj @@@ #&@%&@%6@ ˆLjLj 쁁t쁁 끀ˆLjLj @@@ #&@%&@%6@ ˆLjLj @@@ #&@%&@%6@ ˆLjLj @@@ #&@%&@%6@ ˆLjLj 쁁xg'D'UUUU'D'g'UUUU'g 'DDUUUU'DDg!DUUUUDg"@S@UUUU@S@g#<SDSUUUU<SDSg$<DUUUU<Dg%@@UUUU@@g&<DUUUU<Dg'<DUUUU<Dg(@C@UUUU@C@g)<CDCUUUU<CDCg*<DUUUU<Dg+tqtUUUUtqtg,pqxqUUUUpqxqg-pxUUUUpxg.tt%UUUUtt%g/pxUUUUpxg0p%x%UUUUp%x%g1tatUUUUtatg2paxaUUUUpaxag3pxUUUUpxg4SUUUUSg5SSUUUUSSg6UUUUg7UUUUg8UUUUg9UUUUg:CUUUUCg;CCUUUUCCg<UUUUg=qUUUUqg>qqUUUUqqg?UUUUg@%UUUU%gAUUUUgB%%UUUU%%gCaUUUUagDaaUUUUaagEUUUUgFSUUUUSgG SSUUUU SSgH UUUU gIUUUUgJ UUUU gK UUUU gLCUUUUCgM CCUUUU CCgN UUUU gODqDUUUUDqDgP@qHqUUUU@qHqgQ@HUUUU@HgRDD%UUUUDD%gS@HUUUU@HgT@%H%UUUU@%H%gUDaDUUUUDaDgV@aHaUUUU@aHagW@HUUUU@HgXxSxUUUUxSxgYtS|SUUUUtS|SgZt|UUUUt|g[xxUUUUxxg\t|UUUUt|g]t|UUUUt|g^xCxUUUUxCxg_tC|CUUUUtC|Cg`t|UUUUt|C = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = mover outline mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<B/Linear - Pt 21/42 $ZdZ)}[,`,,d,don mouseUp beep open cd "demo grid" of wd "demo dialogs" end mouseUp on keystroke thekey beep open cd "demo grid" of wd "demo dialogs" end keystroke  <0Yri?UUUU,| N.i>UUUU,| N.i 7hUUUU,jvjΨ, 0RAp,,S@, 0vA,S@, 0A,LS@, 0A,pS@, 0A,\S@, 0A$,S@, 0*AH,S@, 0NAl,S@, 0rA,S@, 0A, S@, CcT,S@, CT,S@, CT,S@, C;TY,lS@, CT,S@, VRgp,S@, Vvg,S@, Vg,S@, Vg,S@, Vg,S@, Vg$,LS@, V*gH,|S@, VNgl,TS@, Vrg,S@, Vg,$S@, xRp,dS@, xv,XS@, x,`S@, x,S@, x,S@, x$,hS@, x*H,pS@, xNl,S@, xr,S@, x,pS@,H c,hS@,I ,S@,J ,S@,K ;Y,S@,L ,\S@, Rp,S@, v,S@, ,S@, ,S@, ,lS@, $, S@, *H,,S@, Nl,TS@, r,S@, ,S@, Rp,4S@, v,8S@, ,tS@, ,dS@, ,S@, $,S@, *H,S@, Nl,xS@, r,S@, ,0S@,M c,LS@,N ,S@,O ,pS@,P ;Y,,S@,Q ,hS@, Rp,S@, v,4S@, ,`S@, ,PS@, ,\S@, $,8S@, *H,xS@, Nl,TS@, r,$S@, ,dS@, Rp,tS@,! v,XS@," , S@,# ,lS@,$ ,0S@,% $,|S@,& *H,(S@,' Nl,DS@,( r,HS@,) ,S@,R c,,S@,S ,,S@,T ,,S@,U ;,Y, S@,V ,,S@,* .R?p,S@,+ .v?,S@,, .?,S@,- .?,S@,. .?,S@,/ .?$,S@,0 .*?H,S@,1 .N?l,S@,2 .r?,S@,3 .?,S@,4 PRap,S@,5 Pva,S@,6 Pa,S@,7 Pa,S@,8 Pa,S@,9 Pa$,S@,: P*aH,S@,; PNal,S@,< Pra,S@,= Pa,S@,W cct,S@,X ct,S@,Y ct,S@,Z c;tY,S@,[ ct,S@,> vRp,S@,? vv,S@,@ v,S@,A v,S@,B v,S@,C v$,S@,D v*H,S@,E vNl,S@,F vr,S@,G v,|S@,`/qM,xS@,s,tS@df3f3,pl@dUUUU,l,huT @ 'qqqqqqqqqqqqqqq     %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}  "        %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}      !?   @ 'qqqqqqqqqqqqqqq     %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}          %''''%='='='='=%PP'PP'PP'PP'PP % ' ' ' ' %'''' %}'}'}'}'}      !?  0сЁҁӁԁՁ ԃ33333333333333333333333333333333333333333333333333333333333ދًًًًًًًًً āāāā33333ށ)))))т܁ ދًًًًًًًًً ދًًًًًًًًً āāāā33333ށ)))))т܁ ދًًًًًًًًً ދًًًًًًًًً āāāā33333ށ)))))т܁5ށ ދًًًًًًًًً ދًًًًًًًًً āāāā33333ށ)))))т܁ ދًًًًًًًًً ދًًًًًًًًً āāāā33333ށ)))))т܁ ދًًًًًًًًً сÁ  C1#2!"A1!1$5#4"1!"15"B"14#1$$!1"1!"!#!`A#!"T1!"ABˆ!!BCB"!Q"!B"QdAQb2aTa1Ra!‰!!&"!$!2a!A# @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @Sa @Sa @S mover outline mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<B DD Pt 25/125 " `dhQz*gd*a\  <B demo dialogs X,&9===  <Bd*== OKvFwe@+j)jjjvhf2v:we@+j)0jjjvhg&v.we@+j)jjjvJvRwRwJwJvRvRw>vFwFw>w>vFvFw2v:w:w2w2v:v:w&v.w.w&w&v.v.wFavFUFUvavavld%&UUUU)jjvjΨle&RUUUU)jjvjΨhfaUUUU)jjvjΨhd%&e@+j)jjjvhe%&e@+j)jjjvhf%&e@+j)jjjvhg%&e@+j)Djjjv%&&&%%&%&&&%%&%&&&%%&%&&&%%&hdJRe@+j)Ljjjvhe>Fe@+j)jjjvhf2:e@+j)Ljjjvhg&.e@+j)jjjvJRRJJRR>FF>>FF2::22::&..&&..aUUaald%&:UUUU)jjvjΨle&:R;UUUU)jjvjΨhf a:UUUU)jjvjΨhd%&e@+j)jjjvhe%&"e@+j)Pjjjvhf%&&.e@+j)jjjvhg%2&:e@+j)jjjv%&&&%%&%&"&&"%"%&%&&.&&&.%.%&&&%2&:&2&:%:%2&2hdJ:R;e@+j)jjjvhe>:F;e@+j) jjjvhf2::;e@+j)jjjvhg&:.;e@+j)jjjvJ:R;R;J;J:R:R;>:F;F;>;>:F:F;2::;:;2;2::::;&:.;.;&;&:.:.; a: U U:a:a:ld%p&UUUU)jjvjΨle&RUUUU)jjvjΨhflaUUUU)jjvjΨhd%p&xe@+j)jjjvhe%|&e@+j)jjjvhf%&e@+j)jjjvhg%&e@+j)jjjv%p&x&p&x%x%p&p%|&&|&%%|&|%&&&%%&%&&&%%&hdJRe@+j)jjjvhe>Fe@+j)jjjvhf2:e@+j)jjjvhg&.e@+j)jjjvJRRJJRR>FF>>FF2::22::&..&&..lalUlUaaldJvUUUU)jjvjΨlevwUUUU)jjvjΨhf{FvUUUU)jjvjΨhdJRe@+j)jjjvheV^e@+j)jjjvhfbje@+j)jjjvhgnve@+j)jjjvJRJRRJJV^V^^VVbjbjjbbnvnvvnnhdvwe@+j)jjjvhevwe@+j)jjjvhfvwe@+j)jjjvhgvwe@+j)jjjvvwwwvvwvwwwvvwvwwwvvwvwwwvvw{Fv{FFvvvldUUUU)jjvjΨleUUUU)jjvjΨhf{UUUU)jjvjΨhde@+j)jjjvhee@+j)jjjvhfe@+j)jjjvhge@+j)jjjvhde@+j)jjjvhee@+j)jjjvhfe@+j)jjjvhge@+j)jjjv{{ld:UUUU)(jjvjΨle:;UUUU)jjvjΨhf{ :UUUU)jjvjΨhde@+j)ljjjvhe"e@+j)jjjvhf&.e@+j)jjjvhg2:e@+j)jjjv"""&.&..&&2:2::22hd:;e@+j)<jjjvhe:;e@+j)jjjvhf:;e@+j)jjjvhg:;e@+j)jjjv:;;;::;:;;;::;:;;;::;:;;;::;{ :{  :::ldpUUUU)jjvjΨleUUUU)HjjvjΨhf{lUUUU)jjvjΨhdpxe@+j)jjjvhe|e@+j) jjjvhfe@+j) jjjvhge@+j)jjjvpxpxxpp||||hde@+j)@jjjvhee@+j)jjjvhfe@+j) jjjvhge@+j)jjjv{l{llldJvUUUU)jjvjΨlevwUUUU)jjvjΨhfF%vUUUU)jjvjΨhdJRe@+j)jjjvheV^e@+j)jjjvhfbje@+j)jjjvhgnve@+j)jjjvJRJRRJJV^V^^VVbjbjjbbnvnvvnnhdvwe@+j)jjjvhev we@+j)jjjvhfvwe@+j)jjjvhgvwe@+j)jjjvvwwwvvwv w wwv v wvwwwvvwvwwwvvwF%vFFv%v%vldUUUU)jjvjΨleUUUU)jjvjΨhf%UUUU)jjvjΨhde@+j)jjjvhee@+j)jjjvhfe@+j)jjjvhge@+j)jjjvhde@+j)jjjvhe e@+j)jjjvhfe@+j)jjjvhge@+j)jjjv    %%%ld:UUUU)jjvjΨle:;UUUU)ljjvjΨhf %:UUUU)XjjvjΨhde@+j)|jjjvhe"e@+j)xjjjvhf&.e@+j)tjjjvhg2:e@+j)pjjjv"""&.&..&&2:2::22hd:;e@+j)hjjjvhe: ;e@+j)djjjvhf:;e@+j)`jjjvhg:;e@+j)\jjjv:;;;::;: ; ;;: : ;:;;;::;:;;;::; %:  :%:%:ldpUUUU)PjjvjΨleUUUU)<jjvjΨhfl%UUUU)(jjvjΨhdpxe@+j)Ljjjvhe|e@+j)Hjjjvhfe@+j)Djjjvhge@+j)@jjjvpxpxxpp||||hde@+j)8jjjvhe e@+j)4jjjvhfe@+j)0jjjvhge@+j),jjjv    l%ll%%ldKJLvUUUU)jjvjΨleLvxwUUUU)jjvjΨhf?FvUUUU)jjvjΨhdKJLRe@+j)jjjvheKVL^e@+j)jjjvhfKbLje@+j)jjjvhgKnLve@+j)jjjvKJLRLJLRKRKJLJKVL^LVL^K^KVLVKbLjLbLjKjKbLbKnLvLnLvKvKnLnhdpvxwe@+j)jjjvhedvlwe@+j) jjjvhfXv`we@+j)jjjvhgLvTwe@+j)jjjvpvxwxwpwpvxvxwdvlwlwdwdvlvlwXv`w`wXwXv`v`wLvTwTwLwLvTvTw?Fv?F{F{vvvldKLUUUU)jjvjΨleLxUUUU)j@p hf?UUUU)$j@p hdKLe@+j)jjjvheKLe@+j)jjjvhfKLe@+j)jjjvhgKLe@+j)jjjvKLLLKKLKLLLKKLKLLLKKLKLLLKKLhdpxe@+j)jjjvhedle@+j)\jjjvhfX`e@+j)XjjjvhgLTe@+j)jjjvpxxppxxdllddllX``XX``LTTLLTT??{{ldKL:UUUU)ljjvjΨleL:x;UUUU)jjvjΨhf? :UUUU)jjvjΨhdKLe@+j)TjjjvheKL"e@+j)jjjvhfK&L.e@+j)hjjjvhgK2L:e@+j)jjjvKLLLKKLKL"LL"K"KLK&L.L&L.K.K&L&K2L:L2L:K:K2L2hdp:x;e@+j)jjjvhed:l;e@+j)jjjvhfX:`;e@+j)jjjvhgL:T;e@+j)djjjvp:x;x;p;p:x:x;d:l;l;d;d:l:l;X:`;`;X;X:`:`;L:T;T;L;L:T:T;? :? { {:::ldKpLUUUU)PjjvjΨleLxUUUU)jjvjΨhf?lUUUU)jjvjΨhdKpLxe@+j)jjjvheK|Le@+j)jjjvhfKLe@+j)jjjvhgKLe@+j)jjjvKpLxLpLxKxKpLpK|LL|LKK|L|KLLLKKLKLLLKKLhdpxe@+j)jjjvhedle@+j)jjjvhfX`e@+j)jjjvhgLTe@+j)jjjvpxxppxxdllddllX``XX``LTTLLTT?l?l{l{gd=Y=cvj=c=Yge8^B^vj8^B^gd==vj==ge8Bvj8Bgd==vj==ge8Bvj8Bgd==vj==ge8Bvj8Bgd=='vj='=ge8"B"vj8"B"gd=N=Xvj=X=Nge8SBSvj8SBSgd==vj==ge8Bvj8Bgd==vj==ge8Bvj8BgdnYncvjncnYgei^s^vji^s^gdnnvjnngeisvjisgdnnvjnngeisvjisgdnnvjnngeisvjisgdnn'vjn'ngei"s"vji"s"gdnNnXvjnXnNgeiSsSvjiSsSgdnnvjnngeisvjisgdnnvjnngeisvjisgdYcvjcYge^^vj^^gdvjgevjgdvjgevjgdvjgevjgd'vj'ge""vj""gdNXvjXNgeSSvjSSgdvjgevjgdvjgevjgdYcvjcYge^^vj^^gdvjgevjgdvjgevjgdvjgevjgd'vj'ge""vj""gdNXvjXNgeSSvjSSgdvjgevjgdvjgevjgdYcvjcYge^^vj^^gdvjgevjgdvjgevjgdvjgevjgd'vj'ge""vj""gdNXvjXNgeSSvjSSgdvjgevjgdvjgevjgd2Y2cvj2c2Yge-^7^vj-^7^gd22vj22ge-7vj-7gd22vj22ge-7vj-7gd22vj22ge-7vj-7gd22'vj2'2ge-"7"vj-"7"gd2N2Xvj2X2Nge-S7Svj-S7Sgd22vj22ge-7vj-7gd22vj22ge-7vj-7gdcYccvjcccYge^^h^vj^^h^gdccvjccge^hvj^hgdccvjccge^hvj^hgdccvjccge^hvj^hgdcc'vjc'cge^"h"vj^"h"gdcNcXvjcXcNge^ShSvj^ShSgdccvjccge^hvj^hgdccvjccge^hvj^hgdYcvjcYge^^vj^^gdvjgevjgdvjgevjgdvjgevjgd'vj'ge""vj""gdNXvjXNgeSSvjSSgdvjgevjgdvjgevjQ = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = mover outline mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<BEProfile - Pt 16/64Md|)}[&{|&qP)}[))))on mouseUp beep open cd "demo grid" of wd "demo dialogs" end mouseUp on keystroke thekey beep open cd "demo grid" of wd "demo dialogs" end keystroke  <0NiUUUU)D@p iUUUU)D@p iUUUU)jvjΨ, R(o)S@, )m:)S@, 7H)S@, =N)S@, O`)S@, "3)S@, 6G)pS@, 5F#)S@, GX7)S@, 7:HW)S@, OO`l)S@, fbw)S@, Sd)S@, hy)\S@, /R@o)S@, n.)S@, 7H)S@, O`)(S@, :K)<S@, O`)S@, K\)PS@, ^o$)S@, iz9)S@, l4}Q)@S@, Pm)hS@, g)4S@, })S@, )S@, 3$DA)S@, D?U\)S@, PSap)S@, Skd)|S@, iz)S@, hy)S@, z)S@, iz)S@, )PS@,  )S@, :)S@, 5R)S@, Pm)S@, k)S@, )S@, )S@, )S@, i#z@)S@, <Y)S@, lW}t)S@, m)S@, z)S@, )S@, )S@, )S@,  )S@, !)S@, 6)S@, 9V)S@, Ol)S@, g)S@, )S@, )S@, <Y)S@,! Qn)S@," p)S@,# )S@,$ )S@,% )S@,& )S@,' )S@,( #) S@,) 9) S@,* 4Q)dS@,+ Ol)S@,, h)S@,- ~ )`S@,. )S@,/ %B)S@,0 >[)S@,1 Tq)xS@,2 j)S@,3 )S@,4 )S@,5 )LS@,6 )S@,7 )S@,8 ( )S@,9 ;)S@,: 5)R)S@,; O"l)S@,< #k4)$S@,= 0A)S@,> 5F)S@,? IZ)S@,@ $A)S@,A =Z)S@,B Wt)S@,C m)S@,D )S@,E  )S@,F ))S@,G +)TS@,H /@ )`S@,I 0A )DS@,J BS7)S@,K 1:BW)S@,L JO[l)LS@,M bgs)S@,N N_)S@,O ct)4S@,P <)Y) S@,Q *R;o)S@,R q))lS@,S 1B)<S@,T J[)S@,U 7H)`S@,V J[)$S@,W EV)S@,X Vg$)S@,Y bs9)S@,Z f4wQ)S@,[ zNk)S@,\ |h)S@,] ,%=B)S@,^ >?O\)S@,_ ISZp)XS@,` Mk^),S@,a bs)S@,b ct)$S@,c t)TS@,d bs)TS@,e |)HS@,f c#t@)S@,g |;X)S@,h gVxs)S@,i |l)S@djf3f3)0l@dkUUUU))0uT  @@ ܂)܂);݁:(܁!(ނ`88>8x888888888880;/pX%&&~%&? $'@~/$&&(? '%(%  ?@(@?(~%! )`5)P)~"0)(?.1 ~*&~. 0#@$%@A!?#*!x?!+"~!h+".)"!&>%"2?&1 !p-">!8~."='#!"';"#@!.)#?.)~P"%~ "@!(*"6%&#-X&?#?&~`#&@~%$&'@$@$(*?% ? *'~)P~&($x% &*$%?0* ?(6@~,/"$` $@%2-#?!!?h-:'>?!,~"'!".!(/!'E$#!&>&"=.8@!p../6~/ ". .*!? .*@?/0'%*`" 9"!&P*#.(#."?#`"'~`~$#($@#(.??.'$$(~$@' % %)&%%P)?(~,~.$$$` &#).#?#p@7.:'*~"#.!0%2߀!|D&E$(p"|!p-~+~.)*").#.'!?@?%%!"`$~ ~(.+ &-#&'?(~'$P'~'(%@?((%)$?P~$@(5 *&@&.P)&??,)B+~,&x"9#$3 !!?+"p@' #G.7(~~#)!!x$} ,!.2߀)!p 7!86%8""|D!!$}C.#?|!`"+@!.*p"*#? P".@.#(".%~"`$#*"'$. ~$?%$$(%~P?/%&$%@(x?(~''%P&'5~/%@'?(.%'(~ &~?@$6"!!9).XG!??2@'?*.":!*x!!3?'F>$}#`!:8Np)!p)~(~);!."(". "(~? !@!%%"6$'X?/@#%.#'@&?`~'&@'.'.  ~ (? (P(%?((~!?).0) ).1 ?`".#)~@$#@A!~h*Ax!+(?.#B.?"*"'>%#=1%&1 !->9!.+!#~.+;#@!?*#!.&# "0!:!($6("*"6%&.X%#~&?#`#&@&%~#&~@$@?()% ( *?'?P$&)($x~ &$%~0* +(6@.?'~#$$` ?@%"$?!!+#h-:'>!?-"'!."~"H"'E$#'>&"=.88@!p.p>?6~/ ".+!. .*@~?!04'%p*`1@9" ?~P"*!.(?/.#."?``"'$~$@#(~#(.'?%%$$@(' ? $$(&8%P)(%,).~~$$` &#)~$&#p@'.:?;."'#)?"03߀!|4'E$(">!-(+!.~+~.)#;)@h!%%!?"? '!($.~.+ &~#&'?(~'$P'? '(%?%(%@($@(P%~$(&.P~&@&.,)&5??)B"$#?,7="#p@' 2 G. #8t.#)? ~~3߀(!!x$}C6%#?!|D~!I`8.8#?|!q"P??+!"(!.*8~@.# ". "8*"x: !p7}"?+~($". .%#?(%.$P~~& $%@&($(%?(?P~'.5&@&(.%'?(. F~@~6"~"9).XG!?).2@G*??#:?*p.!A3~'!>$}#`:qN)!I.(!);?~~(". "(." !@!?%?6$'%#X~@%.#'@%&&`#'?@?~''.   $(P(?!(((%!~~~0) ).1 -)."?$?`?@$#$@A!h!x!+(!-#)pB#~"~'>%#=1%&1 !q->98!.+?#?.+;!#@!~*.&# "01@9!8($pV("*?6~'?.X%#%`#&@&?%$#&&@$@~~~% ( *'$(P$??($x? &)$%0 (6@.,'.3$$` ~@~#~$?!!+h-:G>!+3-"'??#?"H."'E$#'>#=.8@!.>/6!./ ?~Ё;+!./*@.0@'%*`1}9! &P"*"?/(~!~#.'#`#"'?`"?$@~(#.'#%(%$$@(' ~ $p$(&q~P)-(%,)?#$?$$` ?$)$&#p@~.:* -"'#)~"0$3߀!|4?'E$'#>!8-<(+.?+"-)#z)@h~%%~"$% '!($?*?.+ &#'~(''$P'~$ ~(?($'(%@($@?P$)(&.P&@&~,)&?+)$"$#~,"?#p@' 2 ).) #)#??~/2߀(!!x$}%6%#?!|!+.#?)"..-"..`~?@#.. ".8.$?/$.. @ ہ  @@ ܂)܂);݁:(܁!(ނ`88>8x888888888880;/pX%&&~%&? $'@~/$&&(? '%(%  ?@(@?(~%! )`5)P)~"0)(?.1 ~*&~. 0#@$%@A!?#*!x?!+"~!h+".)"!&>%"2?&1 !p-">!8~."='#!"';"#@!.)#?.)~P"%~ "@!(*"6%&#-X&?#?&~`#&@~%$&'@$@$(*?% ? *'~)P~&($x% &*$%?0* ?(6@~,/"$` $@%2-#?!!?h-:'>?!,~"'!".!(/!'E$#!&>&"=.8@!p../6~/ ". .*!? .*@?/0'%*`" 9"!&P*#.(#."?#`"'~`~$#($@#(.??.'$$(~$@' % %)&%%P)?(~,~.$$$` &#).#?#p@7.:'*~"#.!0%2߀!|D&E$(p"|!p-~+~.)*").#.'!?@?%%!"`$~ ~(.+ &-#&'?(~'$P'~'(%@?((%)$?P~$@(5 *&@&.P)&??,)B+~,&x"9#$3 !!?+"p@' #G.7(~~#)!!x$} ,!.2߀)!p 7!86%8""|D!!$}C.#?|!`"+@!.*p"*#? P".@.#(".%~"`$#*"'$. ~$?%$$(%~P?/%&$%@(x?(~''%P&'5~/%@'?(.%'(~ &~?@$6"!!9).XG!??2@'?*.":!*x!!3?'F>$}#`!:8Np)!p)~(~);!."(". "(~? !@!%%"6$'X?/@#%.#'@&?`~'&@'.'.  ~ (? (P(%?((~!?).0) ).1 ?`".#)~@$#@A!~h*Ax!+(?.#B.?"*"'>%#=1%&1 !->9!.+!#~.+;#@!?*#!.&# "0!:!($6("*"6%&.X%#~&?#`#&@&%~#&~@$@?()% ( *?'?P$&)($x~ &$%~0* +(6@.?'~#$$` ?@%"$?!!+#h-:'>!?-"'!."~"H"'E$#'>&"=.88@!p.p>?6~/ ".+!. .*@~?!04'%p*`1@9" ?~P"*!.(?/.#."?``"'$~$@#(~#(.'?%%$$@(' ? $$(&8%P)(%,).~~$$` &#)~$&#p@'.:?;."'#)?"03߀!|4'E$(">!-(+!.~+~.)#;)@h!%%!?"? '!($.~.+ &~#&'?(~'$P'? '(%?%(%@($@(P%~$(&.P~&@&.,)&5??)B"$#?,7="#p@' 2 G. #8t.#)? ~~3߀(!!x$}C6%#?!|D~!I`8.8#?|!q"P??+!"(!.*8~@.# ". "8*"x: !p7}"?+~($". .%#?(%.$P~~& $%@&($(%?(?P~'.5&@&(.%'?(. F~@~6"~"9).XG!?).2@G*??#:?*p.!A3~'!>$}#`:qN)!I.(!);?~~(". "(." !@!?%?6$'%#X~@%.#'@%&&`#'?@?~''.   $(P(?!(((%!~~~0) ).1 -)."?$?`?@$#$@A!h!x!+(!-#)pB#~"~'>%#=1%&1 !q->98!.+?#?.+;!#@!~*.&# "01@9!8($pV("*?6~'?.X%#%`#&@&?%$#&&@$@~~~% ( *'$(P$??($x? &)$%0 (6@.,'.3$$` ~@~#~$?!!+h-:G>!+3-"'??#?"H."'E$#'>#=.8@!.>/6!./ ?~Ё;+!./*@.0@'%*`1}9! &P"*"?/(~!~#.'#`#"'?`"?$@~(#.'#%(%$$@(' ~ $p$(&q~P)-(%,)?#$?$$` ?$)$&#p@~.:* -"'#)~"0$3߀!|4?'E$'#>!8-<(+.?+"-)#z)@h~%%~"$% '!($?*?.+ &#'~(''$P'~$ ~(?($'(%@($@?P$)(&.P&@&~,)&?+)$"$#~,"?#p@' 2 ).) #)#??~/2߀(!!x$}%6%#?!|!+.#?)"..-"..`~?@#.. ".8.$?/$.. @ ہ@z% ف҇1΅B˃Aȃ1!ǁ1!6333333333c631333B333333333333333333333B333333333333#!133333333333#Ã!ЁڃÃυ%ρÁفˁɁFˆǁЁgĆ͆ƁjȆцm͆҆ІφԆӆӆֆk؆نچB܆ׁсknу2݆ށ!݆[AmΈ܂!ކЄ1mۂ܁cԃ1mځ1҆׃oQ׃1܅QQ|=34ԄRˇ:3ۂ!цׄaaІށ݂ӆ؇Aن߁Ն׃1׆Ӂ1Ձ%ہہ܁ԁՂ%܁݁܂ہȁ݆Ł!ˁӂρĆс́ȆӇǁ̆׆ÁІՆB׆%܁ށkށŇ܁!!߁ׁڂ!!oу2قс<AnΈ؁1؃1„1nփAф1Ƀ1nփA%Ђҁف3[|>33Ӂ1!҆ԆF1ށֆg܁؆ҁ%ځ܁܁ہ%؁ށ܂!ІցކӆԁֆӁӂنÆρρ܆dž͂́߆ȇǁʇÁ͆ŁφB%Ӂӆ!Ԇ!́!߁׆!߁1ɂ1с<݃1׆؃1݃Aֆф1Ё*ă3څDž=33[ʆAӆ͆ڃ1چǁЇՁ11~؁ЁՆ%؁ʁچǁ!݆Á߆ņņƆɆȆΆʆЇ̆iԇΆІ†!цׁ!ށԆlځ!҆!Akԃ2߂&ځ<1kшށ1ƆV1ƒ1k܃1Ԃ1hڄ1ȃm܃Aӆk҅AQ!n܄aІ%-сЁ!ццQQaZԆӆ܃AӃ׆Նփ1چ߁׆؁1݆ه͂Ёށۇֆ݂!܁كAنā!ہׁՂ҂΁́΁ǁȂBÁ%y†ˁņƆȆmցҁ!߁ׅAlЃ2Ά!1l͈чс<Ń1lԇ؃1Ƀn؁Aф1!o߅QQYAQ!І҇233[Ӄ!?3΄ahԆ˃Aцֆȃ1؆1؆ǁ1ކށچ%܁ށ߂%‚ق!؁ԁ†҂ԁĆȆFÆɆˁgdžˆłBj̆͆ˆmΆφІ҆цhӆֆ!Ԇنځ!́kkԃ2܆׆[Ajш߆1ɆЄ1jރ1ևԃ1jރAֆ%#Ё|:33ۅˇ73ۂ!nam݂ІރAֆށ߁҆؃1݆Ԇځ1%ہ؁߁Ӂ΁%܁ځ߂ځɁچƁ!ކˁ߆ւҁЁņҁЇʁɆӇƁ͆҆BԆ؆jĆ߁!!߁ف݂!!mӃ2܂ԁ<AlЈہ1ۃ1„1lك1Ԅ1Ƀ1lك2%ЂЁ܁3^|<43օ!цԁӆՆF߁׆%Á݁ہ݁؁%Âہ݂݁߁mف݆ІׁӆցԂֆҁЁنĆЂ΁܆ņɁ߆LJŁɇȁ̆‚B%ЁІ!ц!ρ!߁ЁԆ!1ƇӁ<1ԃ!ڃ1Aԅӄ1Ё3݅ȅ93C\džAoʆރ1ֆ͆ځ1܆!āЇہЁцĈ%с΁ÂA҆ˁ!چǁ݆Á߆ÆĆņƆʆȆ̆ʆdЇ̆߁Ά!φgށ܆!Іց!ށօAf؃2!1fՈކ1ĆF؁<Ã1f߃1҆g߃1ǃh߃AсAj؄1!i߄aΆ%Ё#=3҅у!933݇;3ӆn߃AфֆІك1؃ن҆ہ1܇ԆЂЁ%ہ؁ށՁʁ߁ڇ܃Aֆǁ!ށ܆Áځ؂Ղсρсʁ˂BƁ%fƇˁdžjفӁ!߁ׅAiӃ2͆!1iЈЇԁ<Ń1iӇۃ1Ƀkׂ1Ԅ1!l߅QQ\AQ!m҇133^Ӄ!<3΄agц˃AІӆȃ1׆Նǁ1݆׆%Á߁ہÂ!A݆݁!ہކׁ݁Ղԁ&ņV†Ɔ΁hƆȆȂBkˆʆňn͆̆ццΆiІ׆!цچف!ρklӃ2ۆԆ[AkЈކ1ƆЄ1k߃1Ԃ1ԃ1k߃Aӆ׃mQ߄a҅QQ|;33܅ˇ43ۂ!oaj݂ц߃Aӆ߁ӆك1چށՆہ1%ہف݁ҁρ.%܁܁݂فʁ܆ǁ!ÁԂҁЁ΁†҆ɁƆЁՆŁʆφBцՆiÆ!!߁ځ!!lԃ2߆߂Ӂ<Akшށ1ڃ1„1k܃1ӄ1Ƀ1k܃2%Ђ߁4\|;43م!І҆ԁă!߁Ԇ݁ֆ؁5ƁہځށՁ%Ƃف܁ނ܁jׁ܆mՁІԁՂӆ†ЁсֆƆ΂ρنdžʁ܇ɆƁ߇ˆǁ͆Bφц!҆!́!߁Շ!1Ȇԁ<1ցAۃ1AՆԄ1Ё3ޅȅ;3C]ƆAцˁɆ߃1؆̆ہ1ކφ݁Ёӆˆ%ЁAЇ́!؇ȁ܆āކ†ÆÆdžņ̇dž·Ɇӆˆ͆݁!Ά†ށކ!φ!ށ؃2ԁ!ˆՈ߁1ÆF؁<І݃1цg߃1Ԇ݃AІj؄1چ݄a͆%Ё=3҅43ۇЃ3ӆևهفځ݅%܁فՁ݁Ձ܁ցہׁځ  @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S mover outline mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<BSt Horiz Cycloid - Pt 45/135 C pfp"'Z')}[#]#^`#^X#]  <0'i(EUUUU#\| N.i'DUUUU#\| N.l'DUUUU#\#\uTdiQf3f3#\l@,s 0IGa#\Z@,t 0G#]Z@,w 09GQ#]Z@,x 0tG#]Z@,y df{~#] Z@,z d{#]Z@,} cWzo#]Z@,~ cz#]Z@, Jb#]Z@, #] Z@, 9Q#]$Z@, t#](Z@, g#]8Z@, #]<Z@, Vn#]@Z@, #]DZ@, Ia#]HZ@, #]LZ@, 9Q#]PZ@, t#]TZ@, 3fJ~#]XZ@, 3J#]\Z@, 4WKo#]`Z@, 4K#]dZ@, hIa#]hZ@, i#]lZ@, h8P#]pZ@, ht#]tZ@$@Pe#]x%@ #]|&@#]'@#](@H]#]V`i#] Wmw#] Xt}#] Y#] Z#] dUUUU#]#]uT(쁁 끀Ձˆֈ @Ձ@ #&@Ԃ6@ Ձˆֈ @Ձ@ #&@Ԃ6@ Ձˆֈ @Ձ@ #&@Ԃ6@ Ձˆֈ 쁁(쁁 끀Ձˆֈ @Ձ@ #&@Ԃ6@ Ձˆֈ @Ձ@ #&@Ԃ6@ Ձˆֈ @Ձ@ #&@Ԃ6@ Ձˆֈ 쁁vgb'UUUU'lc'DUUUU#\uTgc'DDUUUU'DDld'DUUUU#\#\uTga'D'UUUU'D'gdDUUUUDge@S@UUUU@S@gf<SDSUUUU<SDSgg<DUUUU<Dgk@C@UUUU@C@gl<CDCUUUU<CDCgm<DUUUU<DgntqtUUUUtqtgopqxqUUUUpqxqgppxUUUUpxgttatUUUUtatgupaxaUUUUpaxagvpxUUUUpxgwSUUUUSgxSSUUUUSSgyUUUUg}CUUUUCg~CCUUUUCCgUUUUgqUUUUqgqqUUUUqqgUUUUgaUUUUagaaUUUUaagUUUUgSUUUUSg SSUUUU SSg UUUU gCUUUUCg CCUUUU CCg UUUU gDqDUUUUDqDg@qHqUUUU@qHqg@HUUUU@HgDaDUUUUDaDg@aHaUUUU@aHag@HUUUU@HgxSxUUUUxSxgtS|SUUUUtS|Sgt|UUUUt|gxCxUUUUxCxgtC|CUUUUtC|Cgt|UUUUt|,redred mover outlined @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @S @SrrrrrLtttyt mover mask--on mousedown -- -- repeat while the mouse is down -- -- set the loc of bg grc "image" to the mouseloc -- if exists (bg grc "image2") then -- set the loc of bg grc "image2" to the mouseloc -- end if -- -- end repeat -- --end mousedown on mousedown get the loc of bg grc 1 set the loc of cd grc "mover outline" to it set the itemdel to "," get the loc of cd grc "mover outline" put item 1 of it into startpicth put item 2 of it into startpictv put the mouseh into startmouseh put the mousev into startmousev repeat while the mouse is down get the mouseh put it into endmouseh get the mousev put it into endmousev put endmouseh-startmouseh into deltah put endmousev-startmousev into deltav set the loc of cd grc "mover outline" to (startpicth+deltah),(startpictv+deltav) put (startpicth+deltah) into startpicth put (startpictv+deltav) into startpictv put endmouseh into startmouseh put endmousev into startmousev end repeat set the loc of bg grc "image" to the loc of cd grc "mover outline" if exists (bg grc "image2") then set the loc of bg grc "image2" to the loc of cd grc "mover outline" end if set the itemdel to tab end mousedown on mouseup end mouseup  +K<B+ DEMO GRIDNew Item Open.,n,)}[#W#Z#Y#Won keytypelink min,max,hit repeat with i = min to max set hilite of btn id i to (i = hit) end repeat end keytypelink  }<B+,hODf_#Y.@j|<BLh#YGG.j},lL#ZGG.,jD_#Y.@,D_#Y.@,D_#Y.@,D_#Y.@,D_#Y.@,D_#Y.@, D#_#Y|.@,'D>_#Y.@,BDY_#ft.@,Onf#Yd@,jn#fp@,n#Yx@,n#a@,n#e@,n#Yl@,n#Y`@, n##Yp@,'n>#Y\@,BnY#YX@, ]1th#YT#YP.@, ]nt#YH#YL@jTeA#YDGG.,wk#fx#b.@j=M#XGG.j=M#XGG.j+;#^GG.j #X.@gL 0Lg{Q#X#X g{#Y #Y$ gL 0L,#Y #^@j= M##Y(GG.#X ATd#Z#Z Td#a#X T d#X#X An~#X#X n~#X#X n ~#X#X #X#X A#X#X  #X#X #X#X #X#X A #X#X #X#X #X|#Xx A #Xt#Xp #Xl#Xh #Xd#X` A #X\#XX #XT#XP A#XL#XH  #XD#X@ #X<#X8 A#X4#X0  #X,#X( *:#X$#X A*:#X#X * :#X#X HX#X #X AHX#X#X H X#W#W c sKey U!8 Character Label Sa km fv       cell air  memb i vessel p       space nspace skip skip(default) 5keysPT INT mKey Type ,Configuration: Define Keys Next >>8S on mouseUp global numbins, currenttype lock screen put 10 into numbins -- CHECK FOR DEFAULT KEY DEFINITION (CD FLD 1) get cd fld 1 if it is empty then Answer "You must define the first (default) key!" with "OK" exit mouseup end if --This loop checks to see if there are duplicate keys defined... repeat with i = 1 to 10 if cd fld i is not empty then if the number of chars in cd fld i < 2 then repeat with j = (i+1) to 9 if cd fld i is cd fld j then Answer "You have defined the same key twice!" with "OK" exit mouseup end if end repeat else Answer "Define keys with only one character!" with "OK" exit mouseup end if end if end repeat repeat with i = 1 to 10 if space is in cd fld i then answer "You cannot define SPACE as a key!" put empty into cd fld i exit mouseup end if end repeat go to next card end mouseUp  <B << Previouson mouseUp global numbins, currenttype lock screen put 10 into numbins -- CHECK FOR DEFAULT KEY DEFINITION (CD FLD 1) get cd fld 1 if it is empty then Answer "You must define the first (default) key!" with "OK" exit mouseup end if --This loop checks to see if there are duplicate keys defined... repeat with i = 1 to 10 if cd fld i is not empty then if the number of chars in cd fld i < 2 then repeat with j = (i+1) to 9 if cd fld i is cd fld j then Answer "You have defined the same key twice!" with "OK" exit mouseup end if end repeat else Answer "Define keys with only one character!" with "OK" exit mouseup end if end if end repeat repeat with i = 1 to 10 if space is in cd fld i then answer "You cannot define SPACE as a key!" put empty into cd fld i exit mouseup end if end repeat enable cd btn "new" of cd "choose/save" of wd "configure" go to prev wd end mouseUp  0<BLung Demo c a m v cell air memb i vessel p Pt Pt int pro pro pro int int int int 3 Animal Slide Field DEMO Grid wimp greyscale current dataPRO t/on mouseUp end mouseUp   <Bpt1Son mouseUp keytypelink 217, 219, short id of me end mouseUp   <Buint1Son mouseUp keytypelink 217, 219, short id of me end mouseUp   <Bpro1Son mouseUp keytypelink 217, 219, short id of me end mouseUp   <BMpt2uSon mouseUp keytypelink 220, 222, short id of me end mouseUp   <BOint2Son mouseUp keytypelink 220, 222, short id of me end mouseUp   <B#pro2Son mouseUp keytypelink 220, 222, short id of me end mouseUp   <B`pt3Son mouseUp keytypelink 223, 225, short id of me end mouseUp   <B int3Son mouseUp keytypelink 223, 225, short id of me end mouseUp   <BOpro3Son mouseUp keytypelink 223, 225, short id of me end mouseUp   <Bpt4Son mouseUp keytypelink 226, 228, short id of me end mouseUp   <Bint4Son mouseUp keytypelink 226, 228, short id of me end mouseUp   <Bpro4Son mouseUp keytypelink 226, 228, short id of me end mouseUp   <Bpt5Son mouseUp keytypelink 229, 231, short id of me end mouseUp   <Bint5Son mouseUp keytypelink 229, 231, short id of me end mouseUp   <Bpro5Son mouseUp keytypelink 229, 231, short id of me end mouseUp   <Bpt6Son mouseUp keytypelink 232, 234, short id of me end mouseUp   <Bint6Son mouseUp keytypelink 232, 234, short id of me end mouseUp   <Bpro6Son mouseUp keytypelink 232, 234, short id of me end mouseUp   <Bpt7Son mouseUp keytypelink 235, 237, short id of me end mouseUp   <Bint7Son mouseUp keytypelink 235, 237, short id of me end mouseUp   <Bpro7Son mouseUp keytypelink 235, 237, short id of me end mouseUp   <Bpt8Son mouseUp keytypelink 238, 240, short id of me end mouseUp   <Bint8Son mouseUp keytypelink 238, 240, short id of me end mouseUp   <Bpro8Son mouseUp keytypelink 238, 240, short id of me end mouseUp   <Bpt9Son mouseUp keytypelink 241, 243, short id of me end mouseUp   <Bint9Son mouseUp keytypelink 241, 243, short id of me end mouseUp   <Bpro9Son mouseUp keytypelink 241, 243, short id of me end mouseUp   <Bpt10Son mouseUp keytypelink 244, 246, short id of me end mouseUp   <Bint10Son mouseUp keytypelink 244, 246, short id of me end mouseUp   <Bpro10Son mouseUp keytypelink 244, 246, short id of me end mouseUp   <BC define keysƀ6,Q[2+*, on returnkey if the enable of cd btn "return" is true then send mouseup to cd btn "ok" end if end returnkey on idle if the hilite of cd btn "notes" is true or the hilite of cd btn "data" is true then enable cd btn "ok" else disable cd btn "OK" end if end idle  )}jdf){h@ge *{gf *{gG!A2(l( hG5AF(( iGZ^j(( k(( lC4(* m5q7\* n'7H,D oGG^V&,7 p!2\, qGqw5,, #Export File Options Notes/on mouseUp end mouseUp   <BDataQon mouseUp lock screen if the hilite of me is false then disable cd btn id 111 disable cd btn id 105 disable cd btn id 107 disable cd btn id 108 disable cd btn id 112 disable cd btn id 113 set the hilite of cd btn id 111 to false set the hilite of cd btn id 105 to false --set the hilite of cd btn id 107 to false --set the hilite of cd btn id 108 to false set the hilite of cd btn id 112 to false set the hilite of cd btn id 113 to false else enable cd btn id 111 enable cd btn id 105 enable cd btn id 107 enable cd btn id 108 enable cd btn id 112 end if end mouseUp  h)}Include Column Headerson mouseUp if the hilite of me is false then disable cd btn "include key types" set the hilite of cd btn id 113 to false else enable cd btn "include key types" end if end mouseUp  <BTabvon mouseup set the hilite of me to true set the hilite of cd btn "comma" to false end mouseup  <BCommaton mouseup set the hilite of me to true set the hilite of cd btn "tab" to false end mouseup  I<BOK on mouseup global numbins, exportfilename, headertitle1, headertitle2, headertitle3, headertitle4 global numofheaders,databeenlogged --CHECK FOR EMPTY DATA LOG if cd fld "data field" of cd "data card" of window "data window" is empty then answer "There is no data in the data log" with "OK" exit mouseup end if ask file("enter data file name") if it is empty then exit mouseup set the cursor to watch put it into exportfilename open file exportfilename --WRITE NOTES TO FILE IF REQUESTED if the hilite of cd btn "notes" is true then repeat with i = 1 to the number of lines in cd fld "note field" of cd "data card" of wd "data window" get line i of cd fld "note field" of cd "data card" of wd "data window" write it & return to file exportfilename end repeat write return to file exportfilename end if if the hilite of cd btn "data" is true then get cd fld "data field" of cd "data card" of wd "data window" put it into cd fld "temp data field" of cd "temp data card" of wd "data window" --STRIP IMAGE FILE NAMES IF REQUESTED if the hilite of cd btn "include image file names" is false then repeat with i = 1 to the number of lines in cd fld "temp data field" of cd "temp data card" of wd "data window" delete item 1 of line i of cd fld "temp data field" of cd "temp data card" of wd "data window" end repeat end if --LOAD COLUMN DELIMITER AS SELECTED if the hilite of cd btn "tab" is true then put tab into delimiter else put "," into delimiter end if -- WRITES HEADER LINE TO DATAFILE IF REQUESTED If the hilite of cd btn "include column headers" is true then if the hilite of cd btn "Include image file names" is true then write "Folder:File" & delimiter to file exportfilename end if if numofheaders is not 0 then repeat with i = 1 to numofheaders -- put "headertitle" & i into headerholder -- put headerholder into outputheader -- if i = 1 then put headertitle1 into outputheader if i = 2 then put headertitle2 into outputheader if i = 3 then put headertitle3 into outputheader if i = 4 then put headertitle4 into outputheader -- answer outputheader write outputheader & delimiter to file exportfilename end repeat end if --WRITES KEY DEF NAMES TO HEADER LINE WITH OPTIONAL KEYTYPES repeat with i = 11 to 20 if the visible of cd btn i of cd 1 of wd "counter palette" is true then get the short name of cd btn i of cd 1 of wd "counter palette" put it into keynameholder if the hilite of cd btn "include key types" is true then get the short name of cd grc (i - 10) of cd 1 of wd "counter palette" put it into keytypeholder put keynameholder && "(" & keytypeholder & ")" into it end if write it & delimiter to file exportfilename end if end repeat write return to file exportfilename end if -- WRITES DATA LINES IN DATALOG TO DATAFILE get the number of lines in cd fld "temp data field" of cd "temp data card" of window "data window" put it into numberoflines repeat with i = 1 to 2 repeat with j = 1 to the number of items in line i of cd fld "temp data field" of card "temp data card" of window "data window" write item j of line i of cd fld "temp data field" of card "temp data card" of window "data window" & delimiter to file exportfilename end repeat write return to file exportfilename end repeat end if put empty into cd fld "temp data field" of cd "temp data card" of wd "data window" close file exportfilename close wd "dialog boxes" open cd "demo export" of wd "demo dialogs" end mouseup  )}CancelK\h WkWKH jiKHtpjjjMdHpjHelp$Introduction Using Stereology Toolbox The FILE Menu The EDIT Menu The DATA Menu The MODE Menu Counting DEMO Version Info Trouble Shooting card nameson clicklist get the hilitedlines of me put it into helpcard go to cd helpcard of wd "main help window" end clicklist T<B Quit Help(>=8  <Bb0ieUUUU>(fporpjff~>fporpjg >fporp,h>>\0@jiR >Xfporpjj?fporp_I%؁݁-hTՁH#%ҁǃЂ)ǁՂځǁ݁ہցɁځЂXiȉClЇއЇʌs܁zччɌˆ҂&)&;'ك';Lj)#'<'߂5;')2*-W%3&3DׁD5ҁDD݁Dтւ݁ՁׁہA=߁ЁӁЁЁ6ЁЁЁہЁ؁ԁсف,.ՁсЃсȁЂԁԁԁԁԁԁ҂*ҁւތȁ-فځق4%ԁԁ)ցԁԁԁ߁ӁւcƁÁց́т7؁7сЁӁЁƊЁЁځЁ/'WځWՁׂс؁Ёч&*.*DDځDD!B$DZ9)&/&;'7'܁<='<'%'=''$"Ӂ҂!ށŒGǁ)(=8ڂЇق*(܃<فƁb1)ׁԁ؂*#ځс$Ɓҁބ1!7D1241!DЁBB<622"C#"D1*C"A1AA12Ё"&"2a"""B2"7Q#"!"'";###1""17#"B"A""."""2!܁33؁.с,3Ԃ؂ӁM܁ځ#<сÅ2:k݁ف5\ׁӁҁԁҁ*B&"ҁB!!1!b1!11!1"!1!g!!11Łā>ۂԃ8҂1فցсցҁ܁$"C154لE#1CD6ӂ"2!""%"#"1B"'""""ҁ#ׁЂ)݁9ց݁ҁЁB#Ԃ!11!!!!! ́ A A A A A !  ! ! ! ! ! ! ! ! ! q A A A A A A A A A A A A Q A A A A a āׄ  3 3 3 3 S Ɓ!  ! A A A A A A A A A A A A A " ! $ $ $ $ $ $ $ $ $ % " # # # " ! % 1 1 1 1 1 1 1 1 1 1 # # # !  " " " " " " " ' # # # # # # # # # # # # $ $ * * * * # " 1 " " " " " ! * ##.  "##́!!!!!!1!11!!Q ԁ!!!!!!63 %)***&R22"3969663cB1! N"1!!!!A!!!"!C!!!%! " 23***!$1!1!!!2!$ $A12!!1!!1!!1211#""b ޲N"##"#""""""#""""#"#$) "‰ NN"!"#"ւ'*''Ă z NN"#',݂ N Ł55555NNׂ55555555555555"5!5"555!55"55: ޲N1pЁ%-!5!555$5!5$5!5!5#5!5#5!5T55!5!5"55555Š55555b555"55555!5!5a555515c-5555555'5! !N1N"!5!5"5!5Q5535!51545a555!5A55!5!5A55!5A55!5!5A55!55!55555555555555555a555A55!5Q5555s5555555 5555#N5555515-'D-555!5!555575-55355555*535'55"55c55555555"NAN 5?5-#5555555855555#5555Q55555S555#5T5---55T5555" 55%555545555554555555555555555555"515555E5-5155!55!5555%N5555555155-!5-5155!51551555155!515551551551555#55!55!5!55!5"5"5"5"5"5"5"5552-5#555#55555555*5555W5--55r55R1555155A55a5QBa55a5!R1a5S3555!55&N! "5"55!55-!51---!5-#-#-5-1---5--)51----#---#-$--'--5M"555"-5-5"5#55J---7--58--3--߂!---57N 5---5[-----5&--.----X-------5MM5-Ӂ-ԁ-т-#$-Mӂ--"-!!4#-D-43!4$44t4444È4444C44144M%"T-%-"-!--"'-"-%4"-#A--4&4-44Y444M6#4-7-!4#-!4!4-$-E4%434-$4-A-414-4434A44#144MD4!4--"464R-44#4"-!%#4%-:--2R44A4244!4$4MM%$4$-#-"444"-%"--6"14!431!44M*Q44!424"&#4'&24%34d434ʼn-44"MMM"#"-!-1$!r-4s-!-r-&!421444"4#2-!4!4!4!rMMMDp4$4"4'4'4!4!4%4!4"424#-!4&4*4,4т4!4&4$4#44745M"M!p"4+4%4-4&4'44RMMM"4ځM!MAMMMMM1Mԁ!!!1A1!!11!M2MM"M!!31!BM1MMCMR!ӄ3)*"!EMMRM4/13$5!WMM1M#A!!!!!!Aœ!!!ABAaA$$b$$1MM!M25V222"!#"#111QMMBM3!!5:)511!!;!!43$"T"UMM1p#$"B!"""#"!!"$!#''-)"D!ZMp!$܂҂!1MMԁӁځ^^RMBMЁ^с^^"^^^^^^!^^^^""!Mс^^^^^^^^^^^^^^^^#^^^^^^1^^!^^A^^1^!^!^!^!^%M!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^)^^^^^!M3^^^^^2^^^^^^^^^^^^^^^^^^^^^:^^,^^^^^^1^^^^^^^^^^^^^!1M^^^^ׁ^^2^^^^^R^^^^^^^2^^^^^d^^^^^U^^^#^2^^^^M1ݩ^^^^^^^^^^D^^^^^^^^^^^2^^^^^^^^^^2^^^^#^^^!^!^^^$^!^^^^^HMAM^5^^^3^^R^^^S^^^^1^^^^S^^^^^^^'^^܂^^^!^^^1^^1^^Q^^^1^^!^^!^^R^^^!p'ݩ^!^^!^4^^5^^Îހހ!^!^^!^!^1^^^!^1^^^%^^!^!^!^!^^!^1^^1^^1^^!^!^^1^^^^^^^^W^A^^2!p%!7#^#^"^$^"^!^"^"^2!Y$^"^)^)^͂W"^#^!lp)15pW,^B19A!"^傩^^Cpp7"M^-C"w2^p2%ݩ؂!!!r"""!1zȁp!p!pA݂11AB!#]!]!]!]!]"]p&"#ݩF!#A#ĉ"yW"]&lQppp!p9ċ#]]]]]!]Q]]$!(Ŋ"%B#]]!]]]]]!]A]]A]]]]]]]]]]]]]]]]]]]]1]q]]]]]]]]]!]!W]]]]l4pp!pU!É#]]]]A]]!t#$a"2!!?#A"]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]A]]a]]]]]]]]!]A]っ!]4p"p"E]]5"""!"BQ@2]9]ĉ]]]]Յ]]愣]]3"4]4C#!$1q"!!?"AA"!s]]]!]4]!]烣]"!ݩ34A(2"!"Rq1"É"ܛ֣]1]1]1]1]!]1]1]!]!]!]]"]W"]!]"lvpppp%r#"]!]S1("b"6?"1#È""!(]ڂ]"]"]"]%]߂!]"]2]l%p2pp!pƊ#Wd:A"!Q""Ò@*@*#]'](]#]']Aloupppp!p#2!#A1#"""1""@"CA"&## ׂ]#ovpppp"!G"#!1"1@Ar"1!恣oAppuA#!r1!!B!a!A"!B""Ab+":ۑ!o%p!pp!pv#1!(7A2"!D@!"W"g!1%AŒA!aBŠAb!ABBo!pe#C!"!"" 1?"!!1"""QQ$‰!!!'S$!oo$p(4V11!1BA!#R4!"A#D#(%#62!"oo2p#3#q"!""A1F$Aq$!!11w!$ooB!""a"A!"!"1Q!"BDr!$!!!4op1 EQ@"R!@!1Q?"21$$!!!Q!222"!!!2qsoooXpppQA!"2"q!"@qsRQ> "+###%%ӂ-"CroooXppp!p4#%""!@Lj!T"c@d?!!!B>!"C" %",(%%߂&"uooo$p2pp!p2DA""a!""""C!"BQ!!q!1! Ђqoooo"p2p2ĉ"!2!!#!!#!"a!>!"#"")oopAD"ˆ""ˆ""a"A"1!B!‰!!>"!ف*&o!oHpp!pS"1"ƈ?""(1$g!!! >"""! yy!y"y!y!y!y"y!yyyyyyyyyyyy!y!y!y"y"y"y!y!y!ooo!p1p2!?a!Q#"a""1!A!$!2 !q!>a"!!"yւyぇ(oo1pA""!"1"R$Q!!!1 "?r!!1!*yFyy"y䁇+o"oAQ"!"qG"Q"qC!!! !!!qE!1M2y+y邇yoo!ooS"!!1"#A*1"A?>A>!"!1!Qyy4ySyy!y2y'yAyy恇6oooo1k"!$1"!@q"#ˆ"#!!E!!"1 "a Q?!!y#y!y!y4y!y!y1y1y!y%y灇!yooo)!1"!q##2"A"!!#R!2!"!!$ay1y1y1y!yQyy!y!y1y#y"y!yr~%oAoo%e"3"@""TQ$!1!! 1 R ?!!‰!#yȂ~ぇy"yDoQoooo"DA!"!#"!1!!!q 1 "!@!$yぇ#yooo""!"@!1"A""$!!1!!q !Š! ""聇&2o!oo!oˆ"!!1@b"!@1!A!1DqQ!"!q!!bMzzzzzzz1!6oo1o$#a!#A""!@""Q!?  1>"A1@!cE11 > zzzzzzzzzz"z!zz!z"z"zz!zzz!z*~#Q(o4A!""q"ʼn$!!C>!a>"!a !z!z!z!z!zBzzAzzzzzzBzz!z!z!zzzzzzzzzzzzz!z!z!z!~$"%o!o!q!1"3*qA$a!c!!A aD"C!Q!1ˆ 1z!z!z!zzzzzzAzzzzzzzzzzzzzzzzzzzzzz!z!~zzzzA)oo"A!#A3$3 r>!!A!!!!>!!a$Q  1zzz3zz&z#zz8zzzzzzzz:zzzz!1o("5"BF$$$!"s !QDA!?A$3>2zzzzSzzzzzzzz5zzzzzzzz6zzn!ooA##"Q1!!??"!!A!"!1$" $ z$zzzzzzzzzz2zz1zz!z2zz1zz1zzz!zzzzqzz~!nB1!7"?lj@"$"AA!? ! !B!$> c= !z&z"z!z"z!z%z"z"z!z؂z5~zz!zbzn&!&oA"Ŋ""""T!!D! @"?!!A> D-"z"zтz$z&z$z%z#zЂ&z"!n&A!3$3!!!#!!q!?R"!"!!!*ʼn  !*z/z&z䁆zDnnna!""a"$!1!!!S   @"!!!!A!* ! qzЁzzzz"n6"o#"SB!$!?! """"?!!Q >1 ! q=!zzn!o"1"!@1!"C?!!!!?"1!A!S?!1b= 1 >1>nn4B"1"3!1!"!@! !"?‰$1>!! C  "'n&&A$1#!q 1!@!a!! =1 C !%24nn"n&@!1B?" ‘ ? !b!"$ D  >2)!"!nnnn!$2!E!!!R$! QE" !!*!  D$ 36*3nnRS!a"2!!!‰!!#"> 11 a= !&3!1!bHVnnX$11!Q  1 !! 1"2"1!A"  C>!!E!/#"&"""!&#("?B2H%n!n%$!Ž!!"a"?!! # • D !+!"$(!#ۂ$"!1ovnnnV1Ê?!%!!Q">1a>"E?"> =  D!)#ɂognnnna!?!1% "1#a"#!!!E11AQ > A =!E )6nn"n'B!!!BDŠ ""r!!$!q> C!!!? n!Aq!!Eˆ!!q!$$ !SC2> A>!с:o"o&n!n%!!T #" !!!$>! Ž !! D!!PPPPPPPBPPPPPPPPPPˆPPPP!PBPP"PAPPbPPP!PAP偰nnn"!!?!?!1Q!>2!r"!> > A B >!)#P"P$P$PWPPP#PAPP恰nn' Aa?!!1!?111>1 >r > 1 " a !Da /#PaPPPAPP"PP$P!P1P3PP!PrPSooȉnnnnEŠ!a !&QŒ > 1= Q ! *PPaPPPBPPPPPPP2PPAPPaPPPaPPPPPPPAPP!P!P"P!SばaPPPoAoon$nn!> ‰$!E2?!5$ċ  D!! $!*!!S4PBPPAPAPP"P#PPށ-'ցP%onAnnȈ"! !QA$!  Q > A= 1!!Q*#!PP!2P!P2P2P1P2P!P"P"ւށ#o6nnnnŎ!!@1!Q!1! !>13q 1!" ")"P3P2PP1P!P!P1P!P$PЁׁ߂P"P!Pqoooo'n!n!n$!"aQ!1  >1 !?E!D !߰PPPPP$D2Q!4#ӂ#!B%$#!"3!!21끰PPAoon!n!n%!"!#!!11>! !!!Q >A!!dB'#D!ACBQ!큰;o!oWnnn!)a"r!1$r !!q #>$Q"؂"$"Ё$!oqooonannnn5 "#!!! A >D!Q!?q D!!ׁQсQQQQ#QQQQQQQQQQ!!҃aooo(n"nQ"a!EB B a!q!=! # !*QQQQQQQQQQQQQQQQQ"Q#QQ"Q!QQ!Q1Q!QAQQ1Q!Q!Qւ!\ӂ!ҁ$on!!1!*>! A !!> !1 !=$!QQQQQQ#QQQQQQQQQQ#Q?QQ"":с8%"Ղ"=QQQQGoonnq ?!R$"!A #!! #$$1$R=0!Q҂QQсQQQ2QQQQQQ3QQQ1!C3!1!E!!Q#!#QQQQnnlj!?#! ĉD>Q > ! B0QQQQQQQQQQQQQQQQ$QQQ2QQ&-#!Q!QAQSA$ooAoo'n!n5$!r !D!  !!  !$$0QQQ!Q!Q!QQQQQQ1QQ1QQQQQQQQQQQ!Q!Q"Q!Q!Q"Q!Q$Q"㋯QQQQQQQQ"ognnnn4)!1 a D!?!" # !=1QQ!Q!Q!Q!Q1QQQ1QQ!Q1QQQQQQ1QQ1QQ!Q1QQ1QQ"QQ!QQ!Q!QQQ!Q!QqQS!o!o!oXnn˜$  > >!a+ D >*$Q!Q"Q!Q!Q!Q"Q#Q"Q"Q"Q#Q"Q"Q!Q"Q"QقQ#Q!Q!QaQ!$o"o1oo(n!n#q D1Š!  ! 0ׂQłQ!Q!QQ22booooAnn$a  D ! ?! A qA0؁QQQQ"Q!'o&o1 q0N!!"!!!!B!onnn7 ) !S C "$==A00N!!!!"A"!1(oQooownnn$1!# !D!Dq !!AA!Qa"!!6A6oo!ownnn&!t! ! Qa0!AAaaL$&o!o1on$nˆ * $R$+*1*+1с?;4#onnn$ 20+0O0+*O0+111!213!L$!o&nnnAǎ21+0++0+1#1111111!1!1111""""""!#!LU!!$oQooo8n!nw$%!"""#%%&&*+*ĈL)!Vooo!o&nQnnW&%!*$!ۂ-("$t$LL$Q!7oo!oWnn!n#q#%)VLLB!gooo%n!n!n!Az$LL&AWooo'n!n&Q"%ׂق.'""Ơ*$qLLL1ljooooo'n&Q#%'-Žˆ!"œ"2L%n2nnn$Q2!"#%"ƃ"aB"1111Q111!qQAa1Q1(((''('('('(''''&''&&''&'&'&'&&&%&%&&%%%&%$&%%$%%"$#$511"&#"1""t14"27$b$"$S!"!5EA2!121́!Demo Version 1.1 (This copy registered to: DEMO Version registration1993-94 QSelect "About"or "Help" from the Apple menu for more information.  Title logo`3T NuNV/.N n-P ./d-G-G-G  <Bfk-G-Gd-H8-HLf-G-Gg-G-Gh-G-Gi-G-Gj-G-G DEMO GridNmon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  N<BtLinear - Pt 21/42ylon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  <B DD Pt 25/125lon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  <BProfile - Pt 16/64lon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  J<BHoriz Cycloid - Pt 24klon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  J<BVert Cycloid - Pt 24lon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  K<BSt Horiz Cycloid - Pt 45/135lon itemSelect set the name of cd btn id 225 to the short name of me end itemSelect  K<BGridlist(@)}[X8  <Bd!DEMO Version InfoeThe DEMO version of Stereology Toolbox allows you to explore all the features of the full program with the follwing limitations: 1) Only one grid (the DEMO grid) may be used to actually make counts. The other grids may be viewed by selecting the other configurations in the "Configure" dialog box or to get a quick peek at all of the grids go to the grid selection menu in the "Headers and Grids" window of the "Configure" dialog box . As you select each grid, a thumbnail preview of that grid appears below. Custom grids may be ordered from Morphometrix. 2) The Export function will only export the first two lines of data in the datalog. 3) A limit of 4 intersection or profile counts can be made. The full program allows an unlimited number of each to be counted. For more information, or to order a copy of Stereology Toolbox, contact: Morphometrix 216 F St Suite # 133 Davis, CA 95616 Phone: (916) 753-8006 FAX: (916) 753-8006 E-Mail: America Online: morphomtrx Internet: morphomtrx@aol.com  DEMO Version Info( on s&, 1on openwindow global totpoints put 0 into totpoints end openwindow on keystroke thekey global totpoints, mode, currenttype, gridpoints, modetype, pointscounted if exists (cd btn thekey of cd 1 of wd "counter palette") then get the number of cd btn thekey of cd 1 of wd "counter palette" put it into buttonnum put the short name of cd grc buttonnum of cd 1 of wd "counter palette" into modetype if totpoints > (gridpoints-1) then if modetype is "pt" then beep exit keystroke end if end if --STUDCHECK if "stud" is in mode then add 1 to cd fld thekey of cd 1 of wd "counter palette" put true into pointscounted put thekey into currenttype if modetype is "pt" then add 1 to totpoints exit keystroke end if if modetype is not "pt" then answer "Count intersections & profiles with mouse only." with "OK" send mouseup to cd btn thekey of cd 1 of wd "counter palette" exit keystroke else add 1 to totpoints set the hilite of cd btn currenttype of cd 1 of window "counter palette" to false put thekey into currenttype send mouseup to cd fld totpoints set the hilite of cd btn currenttype of cd 1 of window "counter palette" to true exit keystroke end if else -- USE THE SPACEBAR TO SKIP A POINT IN KEYBOARD MODE WITHOUT ADDING DATA if thekey is space then --CHECK FOR STUD MODE WHERE SPACE WOULD BE IRRELEVENT if "stud" is in mode then exit keystroke put true into pointscounted add 1 to totpoints if totpoints <= gridpoints then get cd fld totpoints if it is not empty then -- SUBTRACT 1 FROM A PREVIOuS FIELD put it into oldname subtract 1 from cd fld oldname of cd 1 of window "counter palette" --*** end if put "" into cd fld totpoints end if exit keystroke end if beep end if end keystroke on mouseUp global currenttype,thekey,mode,pointscounted,modetype --studcheck if "stud" is in mode then answer "Use the keyboard in Speed Count mode." exit mouseup end if -- ASKS USER TO CONFIRM DELETION OF A CLICKED ON INTERSECTION OR PROFILE AND CORRECTS COUNT if word 2 of the target is "button" then answer "Delete this count?" with "No" or "Yes" if it is "yes" then lock screen set the cursor to watch put the short name of the target into deadint subtract 1 from cd fld deadint of window "counter palette" hide the target exit mouseup else exit to supercard end if end if -- GOES TO INTERSECTION COUNTING HANDLER IF CURRENT KEY HAS AN INT MODETYPE if modetype is "int" then put true into pointscounted countint else if modetype is "pro" then put true into pointscounted countpro else if word 2 of the target is "field" then put true into pointscounted if target is empty then put currenttype into the target add 1 to cd fld currenttype of cd 1 of window "counter palette" else if "" is not in target then -- **** to fix space put target into oldcount subtract 1 from cd fld oldcount of window "counter palette" end if put currenttype into the target add 1 to card fld currenttype of window "counter palette" end if else beep end if end if end if end mouseUp --COUNTINT HANDLER - moves intersection count marker at location of mouse intersection count on countint global currenttype,currentint --lock screen --set cursor to watch add 1 to currentint if currentint > 4 then answer "4 intersections is the DEMO limit" exit to supercard end if set the location of cd btn currentint to the clickloc show cd btn currentint set the name of cd btn currentint to currenttype add 1 to cd fld currenttype of window "counter palette" end countint --COUNTPRO HANDLER - moves profile count marker at location of mouse profile count on countpro global currenttype,currentint,currentpro --lock screen --set cursor to watch add 1 to currentpro if currentpro > 9 then answer "4 profiles is the DEMO limit" exit to supercard end if set the location of cd btn currentpro to the clickloc show cd btn currentpro set the name of cd btn currentpro to currenttype add 1 to cd fld currenttype of window "counter palette" end countpro on closecard global gridname, dropshad,gridcolor set the cursor to watch lock screen if the short name of item id 108 of menu "edit" is "Show Grid" then if dropshad is true then show cd grc 1 of cd gridname of wd "stereology toolbox" if "red" is in gridcolor then show cd grc 3 of cd gridname of wd "stereology toolbox" else show cd grc 2 of cd gridname of wd "stereology toolbox" end if set the name of item id 108 of menu "edit" to "Hide Grid" enable menu "grid colors" end if if the vis of cd fld 1 of cd gridname of wd "stereology toolbox"is false then get the number of cd fields in cd gridname of wd "stereology toolbox" repeat with i = 1 to it show cd fld i end repeat set the name of item id 110 of menu "edit" to "Hide Text" enable menu "Text Colors" end if end closecard on opencard global gridname, dropshad,gridcolor if the vis of cd grc 1 is true then put true into dropshad end if repeat with i = 1 to 4 set the checkmark of item i of menu "Grid colors" to false end repeat if the visible of cd grc 2 is true then if dropshad is true then set the checkmark of item 2 of menu "Grid colors" to true else set the checkmark of item 1 of menu "Grid colors" to true end if else if dropshad is true then set the checkmark of item 4 of menu "Grid colors" to true else set the checkmark of item 3 of menu "Grid colors" to true end if end if repeat with i = 1 to 3 set the checkmark of item i of menu "text colors" to false end repeat --KLUDGE lock screen set the locktext of cd fld 1 of cd gridname of wd "stereology toolbox" to false put "a" into cd fld 1 select item 1 of cd fld 1 get the textColor of cd fld 1 put empty into cd fld 1 set the locktext of cd fld 1 of cd gridname of wd "stereology toolbox" to true -- get the textColor of cd fld 2 of cd gridname of wd "stereology toolbox" -- set the textColor of cd fld 1 of cd gridname of wd "stereology toolbox" to it if it is 256 then set the checkmark of item 1 of menu "text colors" to true if it is 255 then set the checkmark of item 2 of menu "text colors" to true if it is 254 then set the checkmark of item 3 of menu "text colors" to true end opencard  )=oStereology Toolbox+<on startUp global numbins,currenttyp~J[~(  <BVdf~JWpj,d+-j@-e ;]?j@i bvW8 jbcv  card name. Quit HelpUUUU#\t#\d l_BUUUU#\#\x l\>UUUU#\#\ lZPUUUU#\#\ lTAUUUU#[t#\ 0on mouseUp global numofheaders headernumberlink 215, 219, short id of me lock screen repeat with i = 1 to 4 put empty into cd fld i hide cd fld i end repeat put 0 into numofheaders end mouseUp  <B1on mouseUp global numofheaders headernumberlink 215, 219, short id of me lock screen repeat with i = 1 to 4 put empty into cd fld i hide cd fld i end repeat show cd fld 1 put 1 into numofheaders end mouseUp   <B2on mouseUp global numofheaders headernumberlink 215, 219, short id of me lock screen repeat with i = 1 to 4 put empty into cd fld i hide cd fld i end repeat show cd fld 1 show cd fld 2 put 2 into numofheaders end mouseUp  <B3on mouseUp global numofheaders headernumberlink 215, 219, short id of me lock screen repeat with i = 1 to 4 put empty into cd fld i hide cd fld i end repeat show cd fld 1 show cd fld 2 show cd fld 3 put 3 into numofheaders end mouseUp  <B4on mouseUp global numofheaders headernumberlink 215, 219, short id of me lock screen repeat with i = 1 to 4 put empty into cd fld i hide cd fld i end repeat show cd fld 1 show cd fld 2 show cd fld 3 show cd fld 4 put 4 into numofheaders end mouseUp  <B?Configuration: Data File Headers / Grid / Mode Next >>8kon mouseUp global headertitle1, headertitle2, headertitle3, headertitle4 enable cd btn "new" of cd "choose/save" of wd "configure" put cd fld "headertitle 1" into headertitle1 put cd fld "headertitle 2" into headertitle2 put cd fld "headertitle 3" into headertitle3 put cd fld "headertitle 4" into headertitle4 go to prev wd end mouseUp  _<Bf << Previoush1on mouseUp global headertitle1, headertitle2, headertitle3, headertitle4 put cd fld "headertitle 1" into headertitle1 put cd fld "headertitle 2" into headertitle2 put cd fld "headertitle 3" into headertitle3 put cd fld "headertitle 4" into headertitle4 go to prev cd end mouseUp  L<B<Number of Data Headers: 0 1 2 3 4 'Titles of Data Headers: Animal headertitle 1Slide headertitle 2Field headertitle 3 headertitle 4/on mouseUp end mouseUp   <B=Choose a counting mode: Normal Speed studPon mouseUp modelink 221, 222, short id of me end mouseUp   <BwimpPon mouseUp modelink 221, 222, short id of me end mouseUp  *<BChoose a Grid: DEMO Gridon mousedown --set the autowidth of me to false get the short name of me put the number of item (the short name of me) of menu "gridlist" into itemname popup menu "gridlist" at topleft of me with item itemname end mousedown  <FYLung Demo c a m v cell air memb i vessel p Pt Pt int pro pro pro int int int int 3 Animal Slide Field DEMO Grid wimp greyscale current dataDEMO Grid 28 Linear - Pt 21/42 42 DD Pt 25/125 125 Profile - Pt 16/64 64 Horiz Cycloid - Pt 24 24 Vert Cycloid - Pt 24 24 St Horiz Cycloid - Pt 45/135 135 grid database(8Choose a color mode: Greyscale Color greyscalevon mouseUp set the hilite of me to true set the hilite of cd btn "color" to false end mouseUp  <Bcolorzon mouseUp set the hilite of me to true set the hilite of cd btn "greyscale" to false end mouseUp  O<BXlH?UUUU#\@ , GG>jHX?#\D iH?UUUU#\H| N.gGG>UUUU , GG>@ @@ @@ @@ @@ @@ @@ @@DEMO Grid  demo grid`lH?UUUU#\T , GG>jIY@#\X iH?UUUU#\\| N.gGG> , GG>@ @@@ @@@ @@@ @@@ @@@ @@@ @@@!Linear - Pt 21/42 Linear - Pt 21/42lR>UUUU#\h , NNBjR`>#\l iR>UUUU#\pgQQ< , QQ<>+m@@  AApxx8@@ *  pxx8 m  AApxxC8C@@ *  pxx8m  AApxxC8C@@ *  pxx8m  AApxx8@@ *  pxx8"Profile - Pt 16/64 Profile - Pt 16/64iV>UUUU#\jvjΨjP_B#\|   @ o{{@@8@p`@``@0 A@@0A@@@@ @  @  @88@@@@0p@```@0 A0A@@p@  @  @8@@@@00@```@ `@ 0@0A @@@ @@  @ @@p@??@@88@``@``@`00AA@@ @ @@pp@@@8@p` @0 A @0A@ @@ @  @  @88@@@@0p@```@0 A0A@@p@  @  @8@@@@ %Horiz Cycloid - Pt 24 Horiz Cycloid - Pt 24ajiV>UUUU#\jvjΨjP\=#\  @ o{{@@0 p@`@  `@0  @0@@@@@@@@Ax@@8AxA@A8@@@ @  `@`@0 p@8x@8@0 ` @`@@@@0@0 @  A `A8 AAUUUU#\D@p jKZP#\   @|+` 0<8p @xpp @z<x<<<ǀx@p` p8|x|p<|<pw ^ 8p0 qxxp<<\?ǀ`0 8xxp @p <@><x À<xx|`<0 p|||z<xx pO <8<ppǀ qp<x\?pa<0< 8pp @p <@>8x À<xp|`<0 pxxЀ^q~<xx <8 x8<p +,(,St Horiz Cycloid - Pt 45/135 St Horiz Cycloid - Pt 45/135iMAUUUU#\| N.jHT>#\ F P?!@ 'x8 8x <x  0    8x <x   0 <x 8x    8p <x 8x    8p <x 8x ? ( DD Pt 25/125  dd pt 25/125"headers and grids@  @  @8@G%H%*[#Y#f`#fd#Y ron opencard -- LOADS THE NAMES OF KEYS AND CATEGORIES global mode,numbins, currenttype,modetype, keytype1,keytype2,keytype3,keytype4,keytype5,keytype6,keytype7,keytype8,keytype9,keytype10 resetcounts set the cursor to watch open invisible wd "configure2" open invisible cd 1 of wd "counter palette" repeat with i = 1 to 10 put 0 into card field i get char 1 of card field i of cd "define keys" of window "configure2" --check if key def is empty and hide if empty if it is empty then set the name of cd btn i to empty hide card button i put empty into cd fld i set the name of cd fld i to empty hide card fld i hide card button (i + 10) else put it into key show cd btn i set the name of card button i to key show cd fld i set the name of card fld i to key show cd btn (i+10) put i+10 into names get item 1 of card field names of card "define keys" of window "configure2" put it into cat set the name of card button names to cat --SETS THE GLOBAL VARIABLE TO DESIGNATE KEY AS POINT AND INT put "pt" & i into keytype if the hilite of cd btn keytype of card "define keys" of window "configure2" is true then set the name of cd graphic i to "pt" else put "int" & i into keytype if the hilite of cd btn keytype of card "define keys" of window "configure2" is true then set the name of cd graphic i to "int" else set the name of cd graphic i to "pro" end if end if end if end repeat put the short name of cd btn 1 of cd 1 of window "counter palette" into currenttype put the short name of cd grc 1 into modetype repeat with i = 1 to numbins set the hilite of cd btn i of window "counter palette" to false end repeat if "wimp" is in mode then set the hilite of cd btn currenttype of window "counter palette" to true end if set the hilite of cd btn "" of window "counter palette" to false close wd "configure2" set the visible of wd "counter palette" to true end opencard on mouseup --SETS SELECTED BUTTON TO CURRENTTYPE & SETS MODE TO KEYTYPE global currenttype,modetype if word 2 of target is "button" then set the hilite of cd button currenttype to false get the short name of target if word 1 of it is "card" then beep answer "This bin is not defined" exit mouseup end if put it into currenttype set the hilite of cd button currenttype to true get the number of the target put it into buttonnum put the short name of cd grc buttonnum into modetype else beep end if end mouseup I)},M Ts#f#f\@RC/#f ,d "T4s#f#f@,e <TNs#f#f@,f VThs#f#f@,gpTs#f@,hTs#f@,iTs#f|@,jTs#e@,kTs#e@,lTs#e@,Y'K#e#e<~@m"4/#e n<N/#e oVh/#e pp/ q/ r/ s/ t/ u/ v!P#e#e w"!4P#e#e x<!NP#fl#fL yV!hP#^#Z zp!P#Z#Z\ {!P#[p#^l |!P#^#^ }!P#^#^ ~!P#^|#^ !P#^#a ,1D#^#^@%/#^ !%P#Zh#Z@ A*-#Z#ZDdXj@#ZHrd]$oE#Zdrdb)tJ#ZLrdg.yO#Z$rdl3~T#ZTrdq8Y#^xrdv=^#Z`rd{Bc#ZPrdGh#ZtrdLm#ZXrdQr#ar,T%s#Z#Zl@dfx#Z8rdk}#Z4rdp#Z0rdu#Z(rdz#Z,rd#Z<rd#Zxrd#Zrd#Z rd\}#ZrDZo#Z#Z f#Z#Z bxo#Y#Y -?a#Y#Y -?a#Y#Y &#Y#Y 0 cc0 a0 m0 v0 0 0 0 0 0 65 *amvcell3on mouseUp beep end mouseUp  <Bair 3on mouseUp beep end mouseUp  <Bmemb i3on mouseUp beep end mouseUp  <B@vessel p3on mouseUp beep end mouseUp  <Bpr53on mouseUp beep end mouseUp  <Bpr63on mouseUp beep end mouseUp  <Bkey 73on mouseUp beep end mouseUp  <Bkey 83on mouseUp beep end mouseUp  <Bkey 93on mouseUp beep end mouseUp  <Bkey 103on mouseUp beep end mouseUp  <B xskip3on mouseUp beep end mouseUp  <Bintersection marker/on mouseUp end mouseUp  <Bptptintproproproptproptintpt65 ptptptptptptptptptpt Import PICTFon mouseUp domenu "import pict..." end mouseUp  $<BLog Data@on mouseUp domenu "log data" end mouseUp  <BCount the RestFon mouseUp domenu "count the rest" end mouseUp  $<B Reference]on mouseUp send "arrowkey up" to wd "stereology toolbox" end mouseUp  =<BLookup^on mouseUp send "arrowKey up" to wd "stereology toolbox" end mouseUp   <B stud maskbon mouseUp answer "Use the keyboard when in Speed Count mode." end mouseUp  @<B?10 POINT COUNTER p *}G0=G$F   <B dThe FILE Menue   M  \      m  {      q  w              I  O  4  @  X  \  The File menu provides control over operations involving files on disk. Import PICT This selection provides a file dialog box for importing a grayscale or 8 bit color PICT file. Stereology Toolbox can only open 8 bit PICT format files. Import Disector Pair This selection provides a file dialog box for importing a pair of grayscale or 8 bit color PICT files. These PICTS should be the same size and have been previously aligned in your image aquisition software. The first imported image is called "Reference"; the second one is called "Lookup". Which of these is currently visible is indcated in a box on the counter palette below the "skip" key You may flip between the two images using any of the arrow keys, or by clicking on the box on the counter palette . The datalog will use the name of the first image imported (Reference) in the filename field. Paste PICT This command allows you to import an image into Stereology Toolbox directly from the clipboard. This eliminates the need to save and name PICT files captured in NIH Image or other image aquisition software. Instead you can simply copy the live image into the clipboard, switch to ST Box and use the Paste PICT command to bring this image in for counting. Open This selection opens a Stereology Toolbox file and reconfigures Stereology Toolbox to continue counting and adding to that data file. Close Closes an open data file. Save This selection writes the current data log to disk as a Stereology Toolbox file. This file can be reopened with Stereology Toolbox and includes configuration information used to collect the data. This protects data integrity by reconfiguring Stereology Toolbox to the same configuration each time a data file is reopened. Save As Same as "Save" but prompts you to enter a new file name to create a new data file. Append Opens an existing data file from disk and adds new counts to the file from the data log. Use this when you start counting without an open data file and decide that these new data should be part of an existing data file. Export This selection lets you create a text file for importing into spreadsheets and other analysis programs. You can select optional column headings, PICT file names, tab or comma delimiters and whether or not you want to indicate the key type (PT, INT, PRO) in each column heading. Quit This selection quits the program and clears all data and images from the program. It will check to see if there is unlogged data or unsaved data before quitting.   The FILE Menu@(pdx#cL#c#c  <BHd#c#cpe#cl#chh#cd#c`f#c\#cXg#cT#cPNormalDon itemSelect global mode,currenttype resetcounts hide cd btn "stud mask" of cd 1 of wd "counter palette" set the hilite of cd btn 1 of window "counter palette" to true put "wimp" into mode set the checkmark of me to true set the checkmark of item "speed count" of menu "mode" to false end itemSelect  :<B Speed count8on itemSelect global mode resetcounts show cd btn "stud mask" of cd 1 of wd "counter palette" set the hilite of cd btn 1 of cd 1 of wd "counter palette" to false put "stud" into mode set the checkmark of me to true set the checkmark of item "normal" of menu "mode" to false end itemSelect  .<B-GDon itemSelect pass itemSelect end itemSelect  <B Greyscalekkon itemSelect global newgridname set the cursor to watch set the checkmark of me to true -- set the remapcolor to false set the checkmark of item "color" of menu "mode" to false set the clut of bg id 102 of wd "stereology toolbox" to "grays w red" set the clut of cd newgridname of wd "stereology toolbox" to "grays w red" end itemSelect  %<BiColoruKon itemSelect global newgridname -- set remapcolor to false set the checkmark of me to true set the checkmark of item "greyscale" of menu "mode" to false set the clut of bg id 102 of wd "stereology toolbox" to "system" set the clut of cd newgridname of wd "stereology toolbox" to "system" end itemSelect  <BeMode lK_OKKIB=>gf~W\9 <#E6;$D>lfBAҁ ~ߟ _/ 577o_v4>mfR~~߿?//??oۗ[}5L>nfR+~?///_{'{M>ofR6( ~/?_/+53wOY{:=BuN>pfS ~?-=~/:- wv/[Z),O>qf]@d~ߟ/+-3w__z{5>rf[ 7)?S{' 7=37/}>B-~tsD8I.??_ //??_ )}t&j)}[#\#Yx#a#X--on returnkey -- send mouseup to cd btn "ok" of cd "data card" of window "data window" --end returnkey on opencard global datafilename put datafilename into cd fld "datafilenamefield" get the number of lines in cd fld "data field" set the scroll of cd fld "data field" to it end opencard on closecard disable item "copy" of menu "edit" disable item "cut" of menu "edit" disable item "paste" of menu "edit" disable cd button "delete data line" end closecard <1<Br6,j O#Y`#e@dd O0jeqI#Yl/fK#YP#fp#Z #Y\g :#X#Yp -h/oL#Y#Y#fx@ji-1#YLk #Y$#YH ,l x,J#^#Y T(@,mv#XT(@n 4#Y(#YD oH #b#f4  config fieldData Log  data fieldon clicklist disable item "copy" of menu "edit" disable item "cut" of menu "edit" disable item "paste" of menu "edit" select before text of cd fld "note field" if the hilitedlines of cd fld "data field" is not empty then enable cd btn "delete data line" -- enable cd btn "copy data to clipboard" else disable cd btn "delete data line" disable cd btn "copy data to clipboard" end if end clicklist  <B"OK@on mouseUp close this window end mouseUp  <B Note fieldz on mousewithin get the selectedtext if it is not empty then enable item "copy" of menu "edit" enable item "cut" of menu "edit" else disable item "copy" of menu "edit" disable item "cut" of menu "edit" end if get the clipboard if it is "text" then enable item "paste" of menu "edit" else disable item "paste" of menu "edit" end if end mousewithin  <BNotes 1data project script holderon openproject global numbins,databeenlogged,datafilename,mainprojectname,menuopened if true is not in menuopened then open wd "stereology toolbox" of proj mainprojectname resetcounts if true is in databeenlogged then answer "This will erase unsaved data!" with "Cancel" or "OK" if it is "Cancel" then exit itemselect end if end if if datafilename is not empty then close wd 1 of proj datafilename end if get the short name of me put it into datafilename put it into newdatafilename set the visible of wd 1 of project datafilename to false open wd "stereology toolbox" of proj mainprojectname -- GETS PROJ CONGIFURATION AND VERIFIES open invisible wd "configure" of proj mainprojectname put cd fld 1 of wd 1 of proj datafilename into cd fld "verify" repeat with i = 1 to the number of lines in cd fld "configure database" put line i of cd fld "configure database" into compareconfig if compareconfig is line 1 of cd fld "verify" then get item 1 of line i of cd fld "configure database" put it into datafileconfig repeat with j = 1 to the number of lines in cd fld "configure list" if datafileconfig is item 1 of line j of cd fld "configure list" then set the hilitedlines of cd fld "configure list" to j open invisible wd "configure" selectconfig exit repeat end if end repeat --FORCE DATABEENLOGGED TO FALSE (CHECK ALREADY DONE) put false into databeenlogged send mouseup to cd btn "ok" of cd 1 of wd "configure" --RELOADS DATAFILENAME AFTER BEING BIFFED BY "OK" put newdatafilename into datafilename repeat with i = 1 to 3 get cd fld i of cd 1 of wd 1 of proj datafilename put it into cd fld i of cd "data card" of wd "data window" end repeat open wd "stereology toolbox" of proj mainprojectname open wd "data window" of proj mainprojectname fixmenus -- enable item "close" of menu "file" -- disable item "append..." of menu "file" set the visible of wd 1 of project datafilename to false exit openproject end if end repeat Answer "Config for this datafile doesn't exist!" with "Create one" or "Cancel" if it is "Create one" then --CHECK TO SEE IF ONE OF THAT NAME EXISTS get the number of lines in cd fld "configure list" of cd "choose/save" of wd "configure" repeat with i = 1 to it put line i of cd fld "configure list" into comparename if comparename is item 1 of cd fld "verify" then answer "This name exits. Modify name?" with "OK" put comparename & "#" into item 1 of cd fld "verify" end if end repeat get the number of lines in cd fld "configure list" of cd "choose/save" of wd "configure" add 1 to it put cd fld "verify" into line it of cd fld "configure database" of cd "choose/save" of wd "configure" put item 1 of cd fld "verify" into configurename put configurename into item 1 of line it of cd fld "configure list" set the hilitedlines of cd fld "configure list" to it open invisible wd "configure" selectconfig --FORCE DATABEENLOGGED TO FALSE (CHECK ALREADY DONE) put false into databeenlogged send mouseup to cd btn "ok" of cd 1 of wd "configure" put newdatafilename into datafilename repeat with i = 1 to 3 get cd fld i of cd 1 of wd 1 of proj datafilename put it into cd fld i of cd "data card" of wd "data window" end repeat open wd "stereology toolbox" of proj mainprojectname open wd "data window" of proj mainprojectname fixmenus -- enable item "close" of menu "file" -- disable item "append..." of menu "file" set the visible of wd 1 of project datafilename to false exit openproject end if close wd 1 of project datafilename open wd "data window" of proj mainprojectname put empty into datafilename exit openproject end if set the visible of wd 1 of project datafilename to false end openproject  <b datafilenamefieldu!Current Datafile: oDelete data lineon mouseUp global databeenlogged get the hilitedlines of cd fld "data field" if it is not empty then put true into databeenlogged set the itemdel to "," put it into linelist get item 1 of linelist put it into firstline repeat with i = 1 to the number of items in linelist delete line firstline of cd fld "data field" end repeat end if set the itemdel to tab disable cd button "delete data line" disable cd button "copy data to clipboard" end mouseUp  <BSCopy data to clipboard5on mouseUp get the hilitedlines of cd fld "data field" if it is not empty then set the itemdel to "," put it into linelist set the style of cd fld "data field" to scrolling get item 1 of linelist put it into firstline get the number of items in linelist get item it of linelist put it into lastline select line firstline to lastline of cd fld "data field" copy text set the style of cd fld "data field" to scrollinglist set the itemdel to tab end if disable cd button "copy data to clipboard" disable cd button "delete data line" end mouseUp  <Bl data carda 00@)}#_#`,#`(#_~on openCard disable cd btn "delete" disable cd btn "select" disable cd btn "set default" end openCard  ]<B/XjsH#`$2=@guM 2MvfzN#` #` wN#`#` jx):#`2=@gyM 2M,z ':L#`#` @/{Z{#_#`#_#`-|^?#_#_@}N#_#_ ~`tM#_#_ ~N#_#_ ,@H#_#_@ O#_#_ ,I`#_#_@jAQ#_2=@, ?RL#_#_@ O#_#_ .Configuration: Choose / Save Next >>s|on mouseUp go to cd "define keys" of wd "configure2" set the visible of this wd to true end mouseUp  S<BNewe on mouseUp ask "Enter name of new configuration." put it into configurename if it is empty then exit mouseup end if repeat with i= 1 to number of lines in cd fld "configure list" get line i of cd fld "configure list" if it is configurename then answer "This name already exists!" with "Cancel" or "Replace" if it is "cancel" then send mouseup to me exit mouseup else delete line i of cd fld "configure database" delete line i of cd fld "configure list" end if end if end repeat set cursor to watch get the number of lines in cd fld "configure list" add 1 to it put configurename into line it of cd fld "configure list" put configurename into item 1 of line it of cd fld "configure database" open invisible wd "configure2" open wd "configure" repeat with i = 1 to 20 get item 1 of line 1 of cd fld i of cd "define keys" of wd "configure2" put it into item i + 1 of last line of cd fld "configure database" end repeat repeat with i = 1 to 10 put "pt" & i into buttonname get the hilite of cd btn buttonname of cd "define keys" of wd "configure2" if it is true then put "Pt" into item i + 21 of last line of cd fld "configure database" else put "int" & i into buttonname get the hilite of cd btn buttonname of cd "define keys" of wd "configure2" if it is true then put "int" into item i + 21 of last line of cd fld "configure database" else put "pro" into item i + 21 of last line of cd fld "configure database" end if end if end repeat repeat with i = 1 to 5 if the hilite of cd btn i of cd "headers and grids" of wd "configure2" is true then put (i-1) into item 32 of last line of cd fld "configure database" end if end repeat get cd fld "headertitle 1" of cd "headers and grids" of wd "configure2" put it into item 33 of last line of cd fld "configure database" get cd fld "headertitle 2" of cd "headers and grids" of wd "configure2" put it into item 34 of last line of cd fld "configure database" get cd fld "headertitle 3" of cd "headers and grids" of wd "configure2" put it into item 35 of last line of cd fld "configure database" get cd fld "headertitle 4" of cd "headers and grids" of wd "configure2" put it into item 36 of last line of cd fld "configure database" get the short name of cd btn id 225 of cd "headers and grids" of wd "configure2" put it into item 37 of last line of cd fld "configure database" if the hilite of cd btn "stud" of cd "headers and grids" of wd "configure2" is true then put "stud" into item 38 of last line of cd fld "configure database" else put "wimp" into item 38 of last line of cd fld "configure database" end if if the hilite of cd btn "greyscale" of cd "headers and grids" of wd "configure2" is true then put "greyscale" into item 39 of last line of cd fld "configure database" else put "color" into item 39 of last line of cd fld "configure database" end if put item 1 of last line of cd fld "configure database" into cd fld "current" get last line of cd fld "configure database" put it into cd fld "current data" put it into cd fld "current data" of cd "define keys" of wd "configure2" put it into cd fld "current data" of cd "headers and grids" of wd "configure2" disable cd btn "new" get the number of lines in cd fld "configure list" set the hilitedlines of cd fld "configure list" to it send mouseup to cd btn "select" close wd "configure2" end mouseUp   )}&Current Configuration: Lung Demo currentDD Pt 25/125 Profile - Pt 16/64 Horizontal cycloid - Pt 24 Vert Cycloid - Pt 24 St Horz Cyc - Pt 45/135 Linear - Pt 21/42 Lung Demo DEMO configure listwon clicklist get the hilitedlines of me if it is empty then exit clicklist disable cd btn "ok" enable cd btn "select" enable cd btn "delete" enable cd btn "set default" end clicklist on doubleclicklist get the hilitedlines of me if it is empty then exit doubleclicklist send mouseup to cd btn "select" send mouseup to cd btn "ok" end doubleclicklist  <BdDD Pt 25/125 q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 0 DD Pt 25/125 wimp greyscale Profile - Pt 16/64 q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 0 Profile - Pt 16/64 wimp greyscale Horizontal cycloid - Pt 24 q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 0 Horiz Cycloid - Pt 24 wimp greyscale Vert Cycloid - Pt 24 q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 0 Vert Cycloid - Pt 24 wimp greyscale St Horz Cyc - Pt 45/135 q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 0 St Horiz Cycloid - Pt 45/135 wimp greyscale Linear - Pt 21/42 q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 4 h1 h2 h3 h4 Linear - Pt 21/42 wimp greyscale Lung Demo c a m v cell air memb i vessel p Pt Pt int pro pro pro int int int int 3 Animal Slide Field DEMO Grid wimp greyscale DEMO q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 4 h1 h2 h3 h4 DEMO Grid wimp greyscale configure databaseDeleteron mouseUp put the hilitedlines of cd fld "configure list" into x put line x of cd fld "configure list" into delname -- if delname is "default" then -- answer "You can't delete the default!" -- exit mouseup -- end if repeat with i= 1 to number of lines in cd fld "configure list" get line i of cd fld "configure list" if it is delname then answer "Delete this Configuration?" with "Cancel" or "Delete" if it is "cancel" then exit mouseup else delete line i of cd fld "configure database" delete line i of cd fld "configure list" set the hilitedlines of cd fld "configure list" to empty end if end if end repeat if delname is in cd fld "current" then put empty into cd fld "current" end if if delname is in cd fld "default config" then put empty into cd fld "default config" end if disable cd btn "select" disable cd btn "delete" end mouseUp  M<BOK on mouseUp global numofheaders, headertitle1,headertitle2,headertitle3,headertitle4 global databeenlogged,datafilename,newgridname,newgridpoints,mainprojectname set the cursor to watch -- CHECK AND CLEAR DATA LOG BEFORE CONFIGURING if true is in databeenlogged then answer "Unsaved data log will be lost! Continue?" with "Cancel" or "OK" if it is "cancel" then exit mouseup end if end if put empty into cd fld "data field" of cd "data card" of wd "data window" put empty into cd fld "note field" of cd "data card" of wd "data window" put empty into datafilename put false into databeenlogged if the visible of wd "counter palette" is true then hide wd "counter palette" end if --LOAD HEADER TITLES open invisible cd "data headers dialog" of wd "dialog boxes" repeat with i = 1 to 8 hide cd fld i put empty into cd fld i end repeat put numofheaders into numtoshow multiply numtoshow by 2 repeat with i = 1 to numtoshow show cd fld i end repeat put cd fld "headertitle 1" of cd "headers and grids" of wd "configure2" into headertitle1 put cd fld "headertitle 2" of cd "headers and grids" of wd "configure2" into headertitle2 put cd fld "headertitle 3" of cd "headers and grids" of wd "configure2" into headertitle3 put cd fld "headertitle 4" of cd "headers and grids" of wd "configure2" into headertitle4 put headertitle1 into cd fld "headertitle 1" of cd "data headers dialog" of wd "dialog boxes" put headertitle2 into cd fld "headertitle 2" of cd "data headers dialog" of wd "dialog boxes" put headertitle3 into cd fld "headertitle 3" of cd "data headers dialog" of wd "dialog boxes" put headertitle4 into cd fld "headertitle 4" of cd "data headers dialog" of wd "dialog boxes" close wd "dialog boxes" -- SET COUNT MODE open invisible cd 2 of wd "configure2" of proj mainprojectname if the hilite of cd btn "stud" of cd "headers and grids" of wd "configure2" is true then send itemselect to item "speed count" of menu "mode" else send itemselect to item "normal" of menu "mode" end if --LOAD GRID put the short name of cd btn id 225 of cd "headers and grids" of wd "configure2" into newgridname repeat with i = 1 to the number of lines in cd fld "grid database" of cd "headers and grids" of wd "configure2" if item 1 of line i of cd fld "grid database" of cd "headers and grids" of wd "configure2" is newgridname then get item 2 of line i of cd fld "grid database" of cd "headers and grids" of wd "configure2" put it into newgridpoints end if end repeat go to wd "stereology toolbox" changegrid -- SET COLOR MODE open invisible cd 2 of wd "configure2" of proj mainprojectname if the hilite of cd btn "GREYSCALE" of cd "headers and grids" of wd "configure2" is true then send itemselect to item "greyscale" of menu "mode" else send itemselect to item "color" of menu "mode" end if -- LOAD COUNTER PALETTE (OPEN CARD SCRIPT DOES THIS)CLOSE 1ST SO OPENCARD SCRIPT RUNS close wd "counter palette" open invisible wd "counter palette" end mouseUp  Gg*}Selecton mouseUp selectconfig open cd "choose/save" of wd "configure" close wd "configure2" set the hilitedlines of cd fld "configure list" to empty enable cd btn "OK" disable cd btn "select" disable cd btn "delete" end mouseUp  Z<DLung Demo c a m v cell air memb i vessel p Pt Pt int pro pro pro int int int int 3 Animal Slide Field DEMO Grid wimp greyscale current dataCancelon mouseUp global oldconfig repeat with i = 1 to the number of lines in cd fld "configure list" if oldconfig is item 1 of line i of cd fld "configure list" then set the hilitedlines of cd fld "configure list" to i send mouseup to cd btn "select" close this wd -- LOAD COUNTER PALETTE (OPEN CARD SCRIPT DOES THIS) show wd "counter palette" exit mouseup end if end repeat answer "You deleted the old configuration!" send mouseup to cd btn "ok" end mouseUp  c<BDEMO q w e r t y p1 p2 i3 i4 pr5 pr6 Pt Pt int int pro pro int int int int 4 h1 h2 h3 h4 DEMO Grid wimp greyscale verify&Default Configuration: Lung Demo default config Set Defaulton mouseUp get the hilitedlines of cd fld "configure list" get line it of cd fld "configure list" put it into cd fld "default config" send mouseup to cd btn "select" end mouseUp  <B Choose/Save!Iafigure list" get line it of cd fld "configure list" put it into cd fld "default config" send mouseup to cd btn "select" end mouseUp  <B Choose/Save!z#b#c#c  <Bzd#c #ce#b#bf#b#bBlackVon itemSelect global gridname set cursor to watch lock screen set the checkmark of me to true set the checkmark of item 2 of menu "text colors" to false set the checkmark of item 3 of menu "text colors" to false get the number of cd fields in cd gridname of wd "stereology toolbox" repeat with i = 1 to it if cd fld i is empty then put "a" into cd fld i set the textcolor of cd fld i to 256 set the textfont of cd fld i to chicago put empty into cd fld i else set the textcolor of cd fld i to 256 set the textfont of cd fld i to chicago end if end repeat end itemSelect  <_RedcVon itemSelect global gridname set cursor to watch lock screen set the checkmark of me to true set the checkmark of item 2 of menu "text colors" to false set the checkmark of item 3 of menu "text colors" to false get the number of cd fields in cd gridname of wd "stereology toolbox" repeat with i = 1 to it if cd fld i is empty then put "a" into cd fld i set the textcolor of cd fld i to 255 set the textfont of cd fld i to chicago put empty into cd fld i else set the textcolor of cd fld i to 255 set the textfont of cd fld i to chicago end if end repeat end itemSelect  T<BGreen Von itemSelect global gridname set cursor to watch lock screen set the checkmark of me to true set the checkmark of item 2 of menu "text colors" to false set the checkmark of item 3 of menu "text colors" to false get the number of cd fields in cd gridname of wd "stereology toolbox" repeat with i = 1 to it if cd fld i is empty then put "a" into cd fld i set the textcolor of cd fld i to 254 set the textfont of cd fld i to chicago put empty into cd fld i else set the textcolor of cd fld i to 254 set the textfont of cd fld i to chicago end if end repeat end itemSelect  T<B Text Colors ($R11<PF>>l>*lon startUp global numbins,currenttype,mode,pointscounted,datafilename,databeenlogged,currentpro,mainprojectname,currentint open card 1 of window "title" if cd fld "registration" is empty then ask "Register owner:" put it into cd fld "registration" end if insert menu "apple" --editor menu set the editscripts to false insert menu "file" disable item "close" of menu "file" enable item "append..." of menu "file" insert menu "edit" insert menu "data" insert menu "mode" insert menu "grid colors" into item 7 of menu "edit" insert menu "text colors" into item 8 of menu "edit" put "wimp" into mode put "none" into currenttype put false into pointscounted put empty into datafilename put false into databeenlogged put 10 into numbins put the short name of this project into mainprojectname set the itemdel to tab put 0 into currentint put 5 into currentpro open invisible cd 1 of window "stereology toolbox" set the style of wd "title" to palette set the vis of wd "stereology toolbox" to true set the style of wd "title" to dialog repeat with i = 1 to the number of bg grcs in this cd if exists(bg grc 1) then choose pointer tool set the editbackground to true show bg grc 1 select bg grc 1 delete set the editbackground to false choose browse tool end if end repeat put empty into cd fld "data field" of cd "data card" of window "data window" repeat with i = 1 to 4 put i * 2 into j put empty into cd fld j of cd "data headers dialog" of wd "dialog boxes" end repeat --SELECT DEFAULT CONFIG OR OPEN "CONFIGURE DIALOG" IF NO DAFAULT IS SET open invisible wd "configure" put false into foundconfig put cd fld "default config" into defaultconfig repeat with i = 1 to the number of lines in cd fld "configure list" if defaultconfig is item 1 of line i of cd fld "configure list" then set the hilitedlines of cd fld "configure list" to i open invisible wd "configure" selectconfig put true into foundconfig exit repeat end if end repeat if foundconfig is false then close wd "title" show wd "configure" else close wd "title" send mouseup to cd btn "ok" of cd 1 of wd "configure" end if hide cd btn "reference" of cd 1 of wd "counter palette" hide cd btn "lookup" of cd 1 of wd "counter palette" hide cd btn "stud mask" of cd 1 of wd "counter palette" end startUp on arrowkey direction if not (exists (cd grc "mover mask")) then beep 2 exit arrowkey end if if the vis of cd grc "mover mask" is true then if direction is up then get the top of bg grc "image" of wd "stereology toolbox" subtract 1 from it set the top of bg grc 1 of wd "stereology toolbox" to it if exists (bg grc 2 of wd "stereology toolbox") then get the top of bg grc 2 of wd "stereology toolbox" subtract 1 from it set the top of bg grc 2 of wd "stereology toolbox" to it end if exit arrowkey end if if direction is down then get the bottom of bg grc "image" of wd "stereology toolbox" add 1 to it set the bottom of bg grc 1 of wd "stereology toolbox" to it if exists (bg grc 2 of wd "stereology toolbox") then get the bottom of bg grc 2 of wd "stereology toolbox" add 1 to it set the bottom of bg grc 2 of wd "stereology toolbox" to it end if exit arrowkey end if if direction is "right" then get the right of bg grc 1 of wd "stereology toolbox" add 1 to it set the right of bg grc 1 of wd "stereology toolbox" to it if exists (bg grc 2 of wd "stereology toolbox") then get the right of bg grc 2 of wd "stereology toolbox" add 1 to it set the right of bg grc 2 of wd "stereology toolbox" to it end if exit arrowkey end if if direction is "left" then get the right of bg grc "image" of wd "stereology toolbox" subtract 1 from it set the right of bg grc 1 of wd "stereology toolbox" to it if exists (bg grc 2 of wd "stereology toolbox") then get the right of bg grc 2 of wd "stereology toolbox" subtract 1 from it set the right of bg grc 2 of wd "stereology toolbox" to it end if exit arrowkey end if else if exists (bg grc "image2") then if the vis of bg grc "image2" is false then show bg grc "image2" show cd btn "lookup" of cd 1 of wd "counter palette" else hide bg grc "image2" hide cd btn "lookup" of cd 1 of wd "counter palette" end if else beep end if end if end arrowkey on scripterror thescripterror answer "Oops! An error occurred." with "Quit" or "Continue" if it is "quit" then quitit end if end scripterror CHANGEGRID-- Handler to change grids and move image if it exists on changegrid global gridpoints, gridname, pointscounted, newgridname, newgridpoints set cursor to watch go to cd newgridname of wd "stereology toolbox" if "DEMO GRID" is in newgridname then open card "demo message" of wd "demo dialogs" end if put newgridname into gridname put newgridpoints into gridpoints set cursor to hand end changegrid --QUITIT ---- handler to quit project and clean up on quitit global pointscounted, gridname lock screen resetcounts repeat with i = 1 to 3 put empty into cd fld i of cd "data card" of wd "data window" put empty into cd fld i of cd "temp data card" of wd "data window" end repeat close window "counter palette" lock screen flushpicts set the editbackground to false choose browse tool hide cd btn "reference" of cd 1 of wd "counter palette" hide cd btn "lookup" of cd 1 of wd "counter palette" if the freesize of this project > (0.2 * the size of this project) and the diskspace > (the size of this project * 2) then compact close all windows end quitit -- RESETCOUNTS-- Handler puts 0 in counter palette fields if data has been entered on resetcounts set cursor to watch global mode,totpoints,currenttype,gridpoints,gridname,numbins,pointscounted,modetype,currentint,currentpro lock screen if pointscounted is true then answer "Unlogged data will be lost! Continue?" with "Cancel" or "OK" if it is "cancel" then exit to supercard else put "resetem" into pointscounted end if end if if pointscounted is "resetem" then put 0 into totpoints repeat with i = 1 to numbins put 0 into card field i of window "counter palette" end repeat put the short name of cd btn 1 of cd 1 of window "counter palette" into currenttype put the short name of cd grc 1 of cd 1 of window "counter palette" into modetype repeat with i = 1 to numbins set the hilite of cd btn i of window "counter palette" to false end repeat if "wimp" is in mode then set the hilite of cd btn currenttype of window "counter palette" to true end if set the hilite of cd btn "" of window "counter palette" to false -- REMOVES PT COUNTS repeat with i = 1 to gridpoints put empty into cd fld i of cd gridname of window "stereology toolbox" end repeat -- REMOVES INTERSECTION COUNTS go to wd "stereology toolbox" lock screen repeat with j = 1 to number of buttons in this card hide cd btn j end repeat put 0 into currentint put 5 into currentpro put false into pointscounted end if end resetcounts -- LOGDATA-- handler to save a set of counts to the data log window and reset counts on logdata global pointscounted,fileandfoldername,numofheaders,databeenlogged,filename open invisible window "data window" get the number of lines in cd fld "data field" of cd 1 of window "data window" put it into numberoflines add 1 to numberoflines put fileandfoldername into item 1 of line numberoflines of cd fld "data field" of cd "data card" of window "data window" repeat with i = 1 to numofheaders put i*2 into j get cd field j of cd "data headers dialog" of window "dialog boxes" put it into item i+1 of line numberoflines of cd fld "data field" of cd "data card" of window "data window" end repeat put 0 into visiblecount repeat with i = 1 to 10 if the visible of cd fld i of window "counter palette" is true then add 1 to visiblecount get word 1 of cd fld i of window "counter palette" put visiblecount+(numofheaders+1) into j put it into item j of line numberoflines of cd fld "data field" of cd "data card" of window "data window" end if end repeat close window "data window" put "resetem" into pointscounted resetcounts put false into databeenlogged put empty into filename put empty into fileandfoldername flushpicts set the editbackground to false choose browse tool hide cd btn "reference" of cd 1 of wd "counter palette" hide cd btn "lookup" of cd 1 of wd "counter palette" end logdata on selectconfig set cursor to watch lock screen put the hilitedlines of cd fld "configure list" into x get line x of cd fld "configure list" put it into cd fld "current" get line x of cd fld "configure database" put it into cd fld "current data" put it into cd fld "current data" of cd "define keys" of wd "configure2" put it into cd fld "current data" of cd "headers and grids" of wd "configure2" --LOAD KEY DEFS repeat with i = 2 to 21 put item i of cd fld "current data" into cd fld (i-1) of cd "define keys" of wd "configure2" end repeat --LOAD KEYTYPE open invisible wd "configure2" open invisible cd "define keys" of wd "configure2" repeat with i = 22 to 31 get item i of cd fld "current data" if it is "Pt" then put "pt" & (i-21) into buttonname send mouseup to cd btn buttonname of cd "define keys" else if it is "int" then put "int" & (i-21) into buttonname send mouseup to cd btn buttonname of cd "define keys" else put "pro" & (i-21) into buttonname send mouseup to cd btn buttonname of cd "define keys" end if end if end repeat --LOAD HEADER NUMBERS open invisible wd "configure2" open invisible cd "headers and grids" of wd "configure2" get item 32 of cd fld "current data" add 1 to it send mouseup to cd btn it of cd "headers and grids" --LOAD HEADER TITLES get item 33 of cd fld "current data" put it into cd fld "headertitle 1" of cd "headers and grids" get item 34 of cd fld "current data" put it into cd fld "headertitle 2" of cd "headers and grids" get item 35 of cd fld "current data" put it into cd fld "headertitle 3" of cd "headers and grids" get item 36 of cd fld "current data" put it into cd fld "headertitle 4" of cd "headers and grids" --LOAD GRID get item 37 of cd fld "current data" set the name of cd btn id 225 of cd "headers and grids" to it --SET COUNT MODE get item 38 of cd fld "current data" send mouseup to cd btn it of cd "headers and grids" --SET COLOR MODE get item 39 of cd fld "current data" send mouseup to cd btn it of cd "headers and grids" end selectconfig on fixmenus --USED TO CLEAN UP MENUS AFTER A DATA FILE OPEN SINCE SATELLITE CAN'T SET MENU STATES (?!) global mainprojectname setwindow wd "stereology toolbox" of project mainprojectname set the disabled of item "close" of menu "file" to false set the disabled of item "append..." of menu "file" to true end fixmenus on flushpicts set the editbackground to true choose pointer tool repeat forever if exists (bg grc 1 of wd "stereology toolbox") then show bg grc 1 select bg grc 1 delete else exit repeat end if end repeat end flushpicts  (+|(""""""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APP8|||8DD""B$B$DDxxxxD"D"@  @p88pf3f3̙3f̙3f p:A""""3333UB$$B?????????????????? 0` 0` 0` 0``0 `0  `0 `0??@@  I@ ??mm @  @@  @ @@ `p` p80p N!FO>JGg0`T/.HnHn/. j ,Q[#a#[#[#`on openCard global filename,fileandfoldername,numofheaders lock screen -- set the locktext of cd fld "file name" to false -- put filename into cd fld "file name" -- put "none" into oldchunk -- repeat with i = 1 to 20 -- find ":" in cd fld "file name" -- if the foundchunk is not empty then -- get cd fld "file name" -- -- put it into oldchunk -- -- put word 2 of the foundchunk into colonnum -- select char 1 to colonnum of cd fld "file name" -- cut text -- -- end if -- end repeat -- put oldchunk into fileandfoldername --NEW SHIT inserted 2/13/94 to replace the commented out crap above that didn't work for unknown reasons if filename is not empty then get the itemdel put it into olditemdel set the itemdel to ":" get the number of items in filename put item it-1 of filename & ":" & item it of filename into fileandfoldername put fileandfoldername into cd fld "file name" set the locktext of cd fld "file name" to true set the itemdel to olditemdel end if --END NEW SHIT put fileandfoldername into cd fld "file name" set the locktext of cd fld "file name" to true if cd fld 2 is empty then select text of cd fld 2 else select text of cd fld (numofheaders*2) end if end openCard on returnkey send mouseup to cd btn "Done" end returnkey on returninfield send mouseup to cd btn "Done" end returninfield on arrowkey type tab end arrowkey c)},r CU#a#[@,iBV#]#al@,s ]o#`4#a@,j\p#e#e`@,t w#`#a@,kv#^#X@,u#f(#Y@,v#f0#Y@jd[>#Z2=@ge| 2|m,#`#] n:v#[#[( go| 2|jp=#W2=@,q !<#ap#Z@Animal Headertitle 13 Header 1Slide 3 Headertitle 2I Header 2Field Headertitle 3 Header 3 Headertitle 4 Header 43Identification Headers for Data Log Cancel@on mouseUp close this window end mouseUp  <BDoneon mouseUp global databeenlogged set the cursor to watch --select text close this window logdata put true into databeenlogged end mouseUp  <<B1Folder:file name of current PICT  File nameData Headers dialogN^99Zyu#d@#d#d <B9^Ii#d#dPx#d#dTw#d#dm#d#dOl#d#d|Wv#dx#dtSf#dl#dpn#d#ddo#d`#d\q#dT#dXt#dh#ds#d#dLQe#dH#dDImport PICT...on itemSelect global filename set cursor to watch lock screen resetcounts hide cd btn "reference" of cd 1 of wd "counter palette" hide cd btn "lookup" of cd 1 of wd "counter palette" answer file "Select a PICT file:" of type "PICT" if it is not empty then put it into filename --CHECK FOR PSYCHO-LONG PATHS get the number of chars in filename if it > 255 then answer "This file/folder name is too long!" with "Oh well" exit itemselect end if get the hasmemory of (3000000) flushpicts importpict filename paste choose browse tool set the editbackground to false set the name of bg grc 1 to "image" set the loc of bg grc "image" to 249,222 else beep end if end itemSelect  :)}#Import Disector Pair...on itemSelect global filename set cursor to watch lock screen resetcounts answer file "Select Reference PICT of pair:" of type "PICT" if it is not empty then put it into filename --CHECK FOR PSYCHO-LONG PATHS get the number of chars in filename if it > 255 then answer "This file/folder name is too long!" with "Oh well" exit itemselect end if get the hasmemory of (3000000) flushpicts importpict filename paste choose browse tool set the editbackground to false set the name of bg grc 1 to "image" set the loc of bg grc "image" to 249,222 else beep exit itemselect end if answer file "Select Lookup PICT of pair:" of type "PICT" if it is not empty then put it into filename2 --CHECK FOR PSYCHO-LONG PATHS get the number of chars in filename if it > 255 then answer "This file/folder name is too long!" with "Oh well" exit itemselect end if get the hasmemory of (3000000) choose pointer tool set the editbackground to true importpict filename2 paste choose browse tool set the editbackground to false set the name of bg grc 2 to "image2" set the loc of bg grc "image2" to 249,222 show cd btn "reference" of cd 1 of wd "counter palette" show cd btn "lookup" of cd 1 of wd "counter palette" else beep exit itemselect end if end itemSelect  :)} Paste PICT*on itemSelect global filename set cursor to watch lock screen resetcounts hide cd btn "reference" of cd 1 of wd "counter palette" hide cd btn "lookup" of cd 1 of wd "counter palette" get the clipboard --if it is not empty then if it is "objects" then put "none" into filename get the hasmemory of (3000000) flushpicts paste if exists(bg grc 1) then choose browse tool set the editbackground to false set the name of bg grc 1 to "image" set the loc of bg grc "image" to 249,222 end if else beep end if end itemSelect   )}-lDon itemSelect pass itemSelect end itemSelect  <BOpen ?on itemSelect global numbins,databeenlogged,datafilename,mainprojectname,menuopened resetcounts if true is in databeenlogged then answer "This will erase unsaved data!" with "Cancel" or "OK" if it is "Cancel" then exit itemselect end if end if if datafilename is not empty then close wd 1 of proj datafilename end if answer file "Select a data file to add to:" of type "MDOC" if it is empty then exit itemselect put it into datafilename put it into newdatafilename put true into menuopened open project datafilename open wd "stereology toolbox" of proj mainprojectname -- GETS PROJ CONGIFURATION AND VERIFIES open invisible wd "configure" of proj mainprojectname put cd fld 1 of wd 1 of proj datafilename into cd fld "verify" repeat with i = 1 to the number of lines in cd fld "configure database" put line i of cd fld "configure database" into compareconfig if compareconfig is line 1 of cd fld "verify" then get item 1 of line i of cd fld "configure database" put it into datafileconfig repeat with j = 1 to the number of lines in cd fld "configure list" if datafileconfig is item 1 of line j of cd fld "configure list" then set the hilitedlines of cd fld "configure list" to j open invisible wd "configure" selectconfig exit repeat end if end repeat --FORCE DATABEENLOGGED TO FALSE (CHECK ALREADY DONE) put false into databeenlogged send mouseup to cd btn "ok" of cd 1 of wd "configure" --RELOADS DATAFILENAME AFTER BEING BIFFED BY "OK" put newdatafilename into datafilename repeat with i = 1 to 3 get cd fld i of cd 1 of wd 1 of proj datafilename put it into cd fld i of cd "data card" of wd "data window" end repeat open wd "stereology toolbox" of proj mainprojectname open wd "data window" of proj mainprojectname enable item "close" of menu "file" disable item "append..." of menu "file" exit itemselect end if end repeat Answer "Config for this datafile doesn't exist!" with "Create one" or "Cancel" if it is "Create one" then --CHECK TO SEE IF ONE OF THAT NAME EXISTS get the number of lines in cd fld "configure list" of cd "choose/save" of wd "configure" repeat with i = 1 to it put line i of cd fld "configure list" into comparename if comparename is item 1 of cd fld "verify" then answer "This name exits. Modify name?" with "OK" put comparename & "#" into item 1 of cd fld "verify" end if end repeat get the number of lines in cd fld "configure list" of cd "choose/save" of wd "configure" add 1 to it put cd fld "verify" into line it of cd fld "configure database" of cd "choose/save" of wd "configure" put item 1 of cd fld "verify" into configurename put configurename into item 1 of line it of cd fld "configure list" set the hilitedlines of cd fld "configure list" to it open invisible wd "configure" selectconfig --FORCE DATABEENLOGGED TO FALSE (CHECK ALREADY DONE) put false into databeenlogged send mouseup to cd btn "ok" of cd 1 of wd "configure" put newdatafilename into datafilename repeat with i = 1 to 3 get cd fld i of cd 1 of wd 1 of proj datafilename put it into cd fld i of cd "data card" of wd "data window" end repeat open wd "stereology toolbox" of proj mainprojectname enable item "close" of menu "file" disable item "append..." of menu "file" open wd "data window" of proj mainprojectname exit itemselect end if close wd 1 of project datafilename put empty into datafilename end itemSelect )} Close on itemSelect global menuopened,datafilename,databeenlogged, mainprojectname resetcounts if true is in databeenlogged then answer "Save data before closing?" with "Cancel" or "Don't Save" or "Save" if it is "cancel" then exit itemselect if it is "save" then domenu "save" end if put empty into menuopened repeat with i = 1 to 3 put empty into cd fld i of cd "data card" of wd "data window" end repeat put empty into cd fld "header 1" of cd "data headers dialog" of wd "dialog boxes" of proj mainprojectname put empty into cd fld "header 2" of cd "data headers dialog" of wd "dialog boxes" of proj mainprojectname put empty into cd fld "header 3" of cd "data headers dialog" of wd "dialog boxes" of proj mainprojectname put empty into cd fld "header 4" of cd "data headers dialog" of wd "dialog boxes" of proj mainprojectname close wd 1 of proj datafilename put empty into datafilename disable item "close" of menu "file" enable item "append..." of menu "file" end itemSelect  )}Saveon itemSelect global numbins, datafilename, headertitle1, headertitle2, headertitle3, headertitle4 global numofheaders,databeenlogged,mainprojectname,pointscounted --CHECK FOR EMPTY DATA LOG if cd fld "data field" of cd "data card" of window "data window" is empty then answer "There is no data in the data log" with "OK" exit itemselect end if --WARN THAT UNLOGGED DATA WILL NOT BE SAVED if pointscounted is true then answer "Unlogged data will not be saved." with "Cancel" or "Continue" if it is "cancel" then exit itemselect end if if datafilename is empty then ask file "enter data file name" if it is empty then exit itemselect put it into datafilename get cd fld "current data" of card 1 of wd "configure" put it into cd fld "config field" of cd 1 of wd "data window" put the short name of this project into mainprojectname new invisible project datafilename repeat with i = 1 to 3 open invisible wd "data window" of proj mainprojectname choose pointer tool select cd fld i copy open invisible wd 1 of proj datafilename choose pointer tool paste end repeat get the script of cd btn "data project script holder" of cd "data card" of wd "data window" of proj mainprojectname set the script of proj datafilename to it put cd fld "current data" of cd 1 of wd "configure" of proj mainprojectname into cd fld 1 of cd 1 of wd "data window" of proj mainprojectname close wd "data window" of proj mainprojectname open wd "stereology toolbox" of proj mainprojectname choose browse tool put false into databeenlogged enable item "close" of menu "file" disable item "append..." of menu "file" exit itemselect end if repeat with i = 1 to 3 get cd fld i of cd "data card" of wd "data window" put it into cd fld i of cd 1 of wd 1 of proj datafilename end repeat open wd "stereology toolbox" of proj mainprojectname put false into databeenlogged disable item "append..." of menu "file" enable item "close" of menu "file" end itemSelect " 6s)} Save as...[on itemSelect global numbins, datafilename, headertitle1, headertitle2, headertitle3, headertitle4 global numofheaders,databeenlogged,mainprojectname --CHECK FOR EMPTY DATA LOG if cd fld "data field" of cd "data card" of window "data window" is empty then answer "There is no data in the data log" with "OK" exit itemselect end if ask file "enter data file name" if it is empty then exit itemselect put it into datafilename get cd fld "current data" of card 1 of wd "configure" put it into cd fld "config field" of cd 1 of wd "data window" put the short name of this project into mainprojectname new invisible project datafilename repeat with i = 1 to 3 open invisible wd "data window" of proj mainprojectname choose pointer tool select cd fld i copy open invisible wd 1 of proj datafilename choose pointer tool paste end repeat get the script of cd btn "data project script holder" of cd "data card" of wd "data window" of proj mainprojectname set the script of proj datafilename to it put cd fld "current data" of cd 1 of wd "configure" of proj mainprojectname into cd fld 1 of cd 1 of wd "data window" of proj mainprojectname close wd "data window" of proj mainprojectname open wd "stereology toolbox" of proj mainprojectname choose browse tool put false into databeenlogged enable item "close" of menu "file" repeat with i = 1 to 3 get cd fld i of cd "data card" of wd "data window" put it into cd fld i of cd 1 of wd 1 of proj datafilename end repeat open wd "stereology toolbox" of proj mainprojectname put false into databeenlogged enable item "close" of menu "file" end itemSelect " c)}D Append...m on itemSelect global numbins,databeenlogged,datafilename,menuopened,mainprojectname --CHECK FOR EMPTY DATA LOG if cd fld "data field" of cd "data card" of window "data window" is empty then answer "There is no data in the data log" with "OK" exit itemselect end if --PUNT IF THERE IS ALREADY AN OPEN DATAFILE if datafilename is not empty then answer "Can't append with an open data file." exit itemselect end if resetcounts --CREATE TEMP DATA open invisible wd "data window" put cd fld "data field" into cd fld "temp data field" of cd "temp data card" put cd fld "note field" into cd fld "temp note field" of cd "temp data card" answer file ("Select a data file to add to:") if it is empty then put empty into cd fld "temp data field" of cd "temp data card" put empty into cd fld "temp note field" of cd "temp data card" exit itemselect end if put it into datafilename put true into menuopened open proj datafilename put line 1 of cd fld "current data" of cd 1 of wd "configure" of proj mainprojectname into compareconfig if compareconfig is not in cd fld "config field" then answer "Can't Append! Configurations don't match!" with "OK" close wd 1 of project datafilename put empty into datafilename put empty into cd fld "temp data field" of cd "temp data card" of wd "data window" put empty into cd fld "temp note field" of cd "temp data card" of wd "data window" enable item "append..." of menu "file" disable item "close" of menu "file" exit itemselect end if --FORCE DATABEENLOGGED TO FALSE (CHECK ALREADY DONE) put false into databeenlogged repeat with i = 1 to 3 get cd fld i of cd 1 of wd 1 of proj datafilename put it into cd fld i of cd "data card" of wd "data window" of proj mainprojectname end repeat open wd "stereology toolbox" of proj mainprojectname set the visible of wd 1 of proj datafilename to false open invisible wd "data window" put return after cd fld "data field" of cd "data card" put return after cd fld "note field" of cd "data card" put cd fld "temp data field" of cd "temp data card" after cd fld "data field" of cd "data card" put cd fld "temp note field" of cd "temp data card" after cd fld "note field" of cd "data card" close wd "data window" open card "data card" of wd "data window" Answer "Save appended data file?" with "Cancel" or "OK" if it is "Cancel" then close wd 1 of project datafilename put cd fld "temp data field" of cd "temp data card" into cd fld "data field" of cd "data card" put cd fld "temp note field" of cd "temp data card" into cd fld "note field" of cd "data card" put empty into datafilename put true into databeenlogged put empty into cd fld "temp data field" of cd "temp data card" put empty into cd fld "temp note field" of cd "temp data card" close wd "data window" exit itemselect end if put empty into cd fld "temp data field" of cd "temp data card" put empty into cd fld "temp note field" of cd "temp data card" send itemselect to item "save" of menu "file" end itemSelect  BQ)}-uDon itemSelect pass itemSelect end itemSelect  <B Export...kon itemSelect open card "export options dialog" of wd "dialog boxes" end itemSelect  F)}-Don itemSelect pass itemSelect end itemSelect  <BQuit on itemSelect global databeenlogged,datafilename if databeenlogged is true then open card "save data warning" of wd "dialog boxes" else if empty is not in datafilename then close wd 1 of proj datafilename end if quitit end if end itemSelect " .< Files < ,Q[#`|#[l#a@#aon openCard global filename,fileandfoldername,numofheaders lock screen -- set the locktext of cd fld "file name" to false -- put filename into cd fld "file name" -- put "none" into oldchunk -- repeat with i = 1 to 20 -- find ":" in cd fld "file name" -- if the foundchunk is not empty then -- get cd fld "file name" -- -- put it into oldchunk -- -- put word 2 of the foundchunk into colonnum -- select char 1 to colonnum of cd fld "file name" -- cut text -- -- end if -- end repeat -- put oldchunk into fileandfoldername --NEW SHIT inserted 2/13/94 to replace the commented out crap above that didn't work for unknown reasons if filename is not empty then get the itemdel put it into olditemdel set the itemdel to ":" get the number of items in filename put item it-1 of filename & ":" & item it of filename into fileandfoldername put fileandfoldername into cd fld "file name" set the locktext of cd fld "file name" to true set the itemdel to olditemdel end if --END NEW SHIT put fileandfoldername into cd fld "file name" set the locktext of cd fld "file name" to true if cd fld 2 is empty then select text of cd fld 2 else select text of cd fld (numofheaders*2) end if end openCard on returnkey send mouseup to cd btn "Done" end returnkey on returninfield send mouseup to cd btn "Done" end returninfield on arrowkey type tab end arrowkey c)},r CU#``#bt@,iBV#`#`@,s ]o#W#`x@,j\p#`#^@,t w#a#W@,kv#Yh#W@,u#`#`@,v#a$#`@jd[>#Z2=@ge| 2|m,#e#f, n":v#a #` go| 2|jp=#`@2=@,q !<#`#`t@Animal Headertitle 1 Header 1Slide Headertitle 2 Header 2Field Headertitle 3 Header 3 Headertitle 4 Header 43Identification Headers for Data Log Cancel@on mouseUp close this window end mouseUp  <BDoneon mouseUp global databeenlogged set the cursor to watch --select text close this window logdata put true into databeenlogged end mouseUp  <<B1Folder:file name of current PICT -Current Demo Ship:Sample PICT File name Data Headers dialogI